) 


Trotz Floppies und Microdrives ist und bleibt der Kassetten- 
Recorder Massenspeichereinheit Nr. 1 und Top of the charts in 
der Beliebtheitsskala der Computer-Anwender. Leider sind die 
gängigen Geräte vom Hersteller in der Regel für Musikaufnah- 
men konzipiert, genügen also dem EDV-Mann nicht immer. Hier 
kommt der neue MC 3810 gerade richtig. Prüfen Sie ihn gleich 
selbst auf Seite .... 


LOGIK 
im Basic-Programm (Teil 3) 


Für alle, die mit dieser neuen 
und raffinierten Serie sich 
selbst in Sachen Program- 
miertechnik auf Vordermann 
bringen wollen, erscheint heu- 
te pünktlich die 3. Folge, in 
der wir gemeinsam unsere 


“Hausaufgabe” vom letzten 
Mal überprüfen werden. Sie 
erinnern sich bestimmt an un- 
ser kleines Anwender-Pro- 
gramm zum Schreiben einer 
Rechnung. Gleich auf Seite 
53 nachlesen! 


Commodore 


Tompube m 
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TANK BATTLE 


Das Bildschirm-Ereignis, das 
alle Video-Hits Kopf stehen 
läßt, erwartet Sie in Ihrer neue- 
sten "Compute mit...”. 

Ob Konventionell bei Tage 
und durch Hindernisse getarnt, 
ob als “Nightbattle” im Fin- 
stern (man sieht nicht die 
Hand vor Augen, geschweige 
den eigenen oder gegneri- 


schen Panzer), ob Mann gegen 
Mann oder Mensch gegen Ma- 
schine (Sonderausführung “Ro- 
botbattle”) — dieses Pro- 
gramm läßt niemanden kalt, 
der für Taktik und packende 
Nahkampf-Situation etwas üb- 
rig hat. Also — Helm auf, Kno- 
belbecher an und abmarsch 
auf Seite 37. 


Quickshot-Joysticks jetzt in einer Hand 


Nachdem in der Vergangen- 
heit verschiedene Importeure 
das Recht für sich in An- 
spruch nahmen, die überaus 
erfolgreichen Quickshot-Joy- 
stick-Modelle SVI-101 und 
SVI-102 in der Bundesrepu- 
blik Deutschland vertreiben 
zu dürfen, hat es jetzt der Ge- 
neralimporteur der SVI-Com- 
putermodelle SVI-318 und 
SVI-328 nach eigener Aus- 
sage geschafft, das Alleinver- 
tretungsrecht für die Bun- 
desrepublik Deutschland 
auch für die Quickshot- 
Joysticks zu erhalten. Dieses 
wurde anläßlich der HiFiVideo 
84 in Düsseldorf vom SVI- 
Generalimporteur der Firma B. 
Jöllenbeck, während der 
Präsentation des 2.500.000- 
sten Quickshot-Joysticks 
SVI-101 mitgeteilt. 
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Soft-Service er 
Basic-Kurs (Teil2) , 


Telex 


Zum 20igsten Male: 
Jugend forscht 1985 


Ordnung im Gomputer Zimmer 
durch den Heimcomputer-Schrank 
von C.P.V. 5 


Computer im Koffer: 

Der SX 64 

Mit dem SX 64 stellte Commodore 
seinen ersten Portablen 

vor. Die rein äußerlichen 
Merkmale sind Grundlage 

dieses Tests 


Spezial-Datenrecorder für 
Microcomputer: 

Boston Gomputer MC 3810 

Die meisten der derzeit 
angebotenen Cassettenrecorder 
für Microcomputer sind 
abgewandelte Musikrecorder. 
Der neue Spezial-Datenrecorder 
System MC 3810 von Boston 
Computer ist dagegen durch 
seine Funktionen klar auf 

die Bedürfnisse der Daten- 
speicherung ausgerichtet. 
Lesen Sie selbst auf Seite 6 


Kampf gegen Software-Piraterie: 


Bundesverband-Gomputer Software 
gegründet 1 


Software 


Schiffe-Versenken (VC-20) 8 
Tropic Trouble (VC-20) 18 
Texas (VC-20) 23 
Tankbattle (VC-20) 37 
ABM (VC-20) 43 
Barriere (C-64) 16 
Graphik (C-64) 21 
Cave of Death (C-64) 31 
Backgammon (C-64) 40 


Acey Deucey (C-64) 
ID-Changer (C-64) 


Testbericht 


Interpod: 
Ein Interface von 0CS 


als Schlüssel zu vielen neuen 


Möglichkeiten 


Tips & Tricks 


für den Gommodore 64 und 


den VG-20, die bestimmt auch 


Ihnen helfen werden. 


CM-Lexikon 


Ab dieser Ausgabe von 
”Gompute mit”’/39 


erklären wir in alphabetischer 


Reihenfolge die wichtigsten 
Begriffe aus der 
Gomputersprache 


Software-Reviews 


KFC-Super 
Toolkit und Monitor im 
Eprom für den C-64 


Nachruf auf Olympia 


Der C-64 spielt sogar die 
Nationalhymnen... 


G-Glub 
Werkstatt 


Logik im Basic- 
programm (Teil 3) 


Assembler-Kurs 
(Teil 3) 


Kleinanzeigen 


Rätselseite 
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DatEx 64 ist eine univer- 
selle Daten- und Textverar- 
beitung, vorwiegend für 
den Privatanwender, mit 
überdurchschnittlichen Lei- 
stungen. Sie können mit 
DatEx 64 Ihre Videocasset- 
ten, Briefmarken, Rezepte, 
Schallplatten, Bücher etc: 
verwalten und Texte bear- 
beiten, mit deutschen Son- 
derzeichen. Durch einfache Anwendbarkeit ist die Ar- 
beit mit DatEx 64 auch für den Anfänger schnell zu 
erlernen. Die wichtigsten Eigenschaften in Stichwor- 
ten: 

Datensätze frei erstellbar (von einem Zeichen bis zu 
einer DIN-A4-Seite in der selben Datei)- verschiedene 
Suchoptionen — Zugriff über jeden Eintrag (Daten- 
bankähnliche Funktion) — Erweiterungsmöglichkeiten 
— Textbreite bis 80 Zeichen (Scrolling) - Übernahme 
des letzten Wortes (kein Trennen notwendig) — nach- 
trägliches Einfügen - deutsche Sonderzeichen auf den 
Druckern: MPS 801, VG 1525, Selkosha GP 100 VC - 
Bildschirmfarben jederzeit änderbar — Daten- und 


DatEx 
64 


Disketten 64 braucht jeder 
Anwender, der mehr als 
fünfzig Programme oder Da- 
teien auf Diskette besitzt. 
Mit Disketten 64 hat die 
Sucherei nach Program- 
men ein Ende und außer- 
dem sind Sie jederzeit über 
Ihren Dateien-Programmbe- 
stand informiert. Der Vor- 
teil von Disketten 64 be- 
steht eigentlich darin, daß die Eingaben nicht über die 
Tastatur erfolgen, sondern von Disketten 64 selbstän- 
dig eingelesen werden. 
Die wichtigsten Eigenschaften in Stichworten: 
Erfassung nach max. 40 verschiedenen Gebieten - 
Sortieren nach Programmnamen (alphabetisch) — Fol- 
gende Informationen werden von Disketten 64 einge- 
lesen und ausgegeben: Länge des Programmes 
(Blocks), Anzahl der Teile des Programmes, Name der 
Diskette, fortlaufende Programmnummer - zusätzlich 
kann ein kurzer Kommentar eingegeben werden - 
deutsches Programm. 

DM 69,90 


AdrEx 64 ist ein menüge- 
Steuertes Adressenverwal- 
tungsprogramm. 

AdrEx 64 zeichnet sich 
durch eine hohe Anwender- 
freundlichkeit aus. Es kön- 
nen 450 Adressen pro Da- 
tei verwaltet werden. Die 
wichtigsten Eigenschaften 


in Stichworten’ 450 Adres- 
sen pro Datei (Cassetten- 


version 150) - zusätzlich 3 Textzeilen — Direktzugriff 
auf alle Kriterien einer Adresse, auch Textzeilen- kom- 
fortable Suchmöglichkeiten — löschen, ändern, aus- 
drucken einer Adresse - Listen und Etiketten drucken 
— Absicherung gegen Fehlbedienungen - Bildschirm- 
farben jederzeit änderbar — deutsches Programm. 

Cassettenversion (150 Adressen) DM 69,- 
Diskettenversion (450 Adressen) DM 79,- 


Textverarbeitung wird nur einmal geladen — Plausibi- 
litätskontrollen — deutsches Handbuch — nur Disket- 


tenversion. 
DM 69,90 


Demnächst erscheint unser komfortabler "DISK-MONITOR" für den C-64 
BITTE INFO ANFORDERN 
Unser C-64 Katalog liegt für DM 2,- in Briefmarken bereit 


HÄNDLERANFRAGEN ERWÜNSCHT. Alle Programme für den Commodore 64. Computeranwendungen Seucan. Postf. 24 44, 8600 Bamberg 1, Tel.: 0 95 42/83 48 
BESTELLCOUPON 


Bitte senden Sie mir 
OD per Nachnahme (zzgl. DM 5,50) D per Vorauszahlung (zzgl. DM 3,50) 
Auslandsbestellungen nur gegen Vorkasse möglich (zzgl. DM 7,-) 


Name: 


B Bl ee ee De ÖRE own e aan 0 Unterschiil 
e, Bitte einsenden an: Computeranwendungen Seucan, Postfach 24 44, 8600 Bamberg 1. 


Adresse: 


m 
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Unser Softwareversand bietet 
Ihnen zu wirklich einmalig | an. 
günstigen Preisen jeden Mo- 
nat die neuesten Programme, 
auf Kassette an. 

Wenn Sie die hier aufge- 
führten Bedingungen beach- 
ten, können auch Sie von un- 
serem Angebot Gebrauch 
machen. 


Bestellungen Ausland: 
Nur Vorauskasse, Schein 
Keine Schecks oder Über- 


Commodore 64 
Cave of Death: 
ID-Changer 
Backgammon und 
Acey Deucey 
Graphik 

Barriere 


K14,-DM 


Bestellungen Inland: 

Gegen Einsendung eines 
Schecks oder Vorauszahlung 
auf unser Konto bei der 


Kreissparkasse Eschwege, I .. 
Bankleitzahl 522 500 30 BR . In 
Kto.-Nr. 45 22 934 "VC-20 K14,-DM \ 


senden wir Ihnen die ge- 


ABM 


wünschten Programme TE 
schnellstmöglich zu. Geben va Schiffe-Versenken 
Sie bitte unbedingt die ge- er Tankbattle 

naue Bezeichnung der Kas- Tropic Trouble 
sette (z.B. Compute mit 37/ Texas 
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KA COMMODORE 64 BASIC v2 Ku 
64K RAM SYSTEM 38911 BASIC BYTES FREE 


Basic-Kurs 


Zunächst wollen wir zur Au- 
flösung der Aufgaben der 
letzten Woche kommen. 


Die erste Frage lautete: 
Wo liegt der Fehler in der fol- 
genden Zeile: 


PRINT 'COMPUTE 
COMMODORE’ 


MIT 


Nun, die Lösung war relativ 
einfach. Das Zeichen ' war 
falsch. Korrekt muß es” sein. 
Die Gründe dafür werden wir 
in dieser Ausgabe noch genau 
erläutern. 


Die zweite Frage: 
Kann der folgende Befehl 
funktionieren: 


?’\WNerner was here” 


hatte den erstaunlichen Ef- 
fekt, daß das Geschriebene 
tatsächlich auf dem Bild- 
schirm erschien. Das liegt 
daran, daß der Commodore 
für fast jeden BASIC-Befehl 
eine Abkürzung kennt. Beim 
PRINT-Befehl ist es das Fra- 


Diese Woche: Einführung in die Variablen-Arithmetik. 


gezeichen. Am Ende der 
Lektion steht eine Tabelle, in 
der Sie die Abkürzungen für 
die anderen Befehle nachle- 
sen können. 


Doch nun zum eigentlichen 
Basic-Kurs. 

Wir wollen diese Woche die 
Variablen behandeln. Eine 
Variable ist grundsätzlich 
erst einmal ein veränderlicher 
Wert - im Gegensatz zur Kon- 
stanten, die immer ihren fe- 
sten Wert behält. Bei der Pro- 
grammiersprache Basic wer- 
den solche Variablen auch als 
'STRINGS’ bezeichnet, und 
ein String stellt eine alphanu- 
merische Zeichenkette dar, 
deren Länge von Null bis 255 
Zeichen zu variieren ist. In- 
nerhalb des Basic-Program- 
mes wird festgelegt, wieviel 
Stellen eine Variable haben 
kann und darf, sodaß der 
Speicherplatz einigermaßen 
vernünftig ausgefüllt wird. 
Es gibt jedoch auch noch 
Zahl-Variablen mit einfacher 
und doppelter Genauigkeit. 
Eine solche Variable haben 


wir in der vorigen Lektion 
schon einmal, ohne es zu wis- 
sen, abgefragt und zwar, als 
wir den Computer überreden 
wollten HALLO zu schreiben 
und nur eine O herauskam, da 
der Variablen noch*kein Wert 
zugewiesen war. Hätten wir 
vorher eingegeben: 
HALLO=8888 

so hätte der Computer: 

8888 

READY 

geschrieben. 

HALLO hätte in dem Falle den 
Wert 8888 angenommen. 
Ganz klar wird das einem, 
wenn man es so ausspricht, 
wie man es geschrieben hat: 
HALLO ist gleich 8888 

Das Gleichheitszeichen dient 
also dazu, einen Buchstaben 
(eine Integervariable) einen 
Wert zuzuweisen. 

Mit dem PRINT-Befehl kann 
man sich den Inhalt der Varia- 
blen sichtbar machen. 
Variablen können, da sie nu- 
merische Werte halten, auch 
wie Zahlen verwaltet werden. 
Geben Sie nun ein: 

A=3 


H 
B=9 

PRINTA+B 

Nach der letzten Anweisung 
wird der Computer 

12 

READY 

auf dem Bildschirm schrei- 
ben. 

Sollten wir jetzt 

PRINT A oder PRINT 8 
eingeben, so würde jeweils 
der Wert erscheinen, den wir 
der entsprechenden Variablen 
angewiesen haben. 


Aufgabe zur nächsten 
Lektion: 
Vervollständigen Sie das 
nächste Programm so, daß 
der Computer zum Schluß in 
der Variablen Y den Wert 55 
hält: 
A=66 
B=3 
X=B+C 
Y=A-X 
PRINT Y 

(tm) 


Damit ist die Einführung in die Strukturen der wichtigsten Grundregeln schon so gut wie abgeschlossen. Der erste Teil dieses sehr 
wichtigen Bereiches der Programmierung mag vielleicht ein wenig langatmig gewesen sein. 
Sie werden aber bemerken, daß es ohne die ersten beiden Lektionen nicht geht, zumal das Thema im Handbuch nur am Rande behan- 


delt wird. 


Im nächsten Heft werden wir mit dem ersten Erstellen eines BASIC-Algorithmus beginnen und unser erstes richtiges Pro- 


gramm schreiben. 


Also versäumen Sie nicht den dritten Teil unserer Serie, denn hier beginnen die Übungen, die einen BASIC-Programmierer aus 


Ihnen machen. 


Computhe mib 
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Start für die 20. Runde JUGEND FORSCHT 1985 


Sei kein Frosch, mach’ mit 


Daß der Frosch kein Wetter- 
prophet ist, hat die Forschung 
inzwischen bewiesen. Und so 
hüpft er denn davon, unser 
Plakatfrosch. Aber in den 
Naturwissenschaften sind 
noch viele Fragen offen, auf 
die eine Antwort erst gefun- 
den werden muß. Täglich 
kommen neue Fragestellun- 
gen hinzu. 


Sein kein Frosch, mach’ mit 
heißt darum auch das Motto 
beim 20. Wettbewerb JU- 
GEND FORSCHT. Wer Lust 
hat, naturwissenschaftliche 
Zusammenhänge zu erken- 
nen, seine Umwelt genauer 
unter die Lupe zu nehmen, 
wer nicht blind glaubt, was 
man ihm erzählt, wer selbst 
experimentieren und eigene 
Ergebnisse erhalten möchte, 
der ist bei JUGEND FORSCHT 
an der richtigen Adresse. Ge- 
fragt sind Einfallsreichtum 
und Originalität. 


Bei JUGEND FORSCHT kön- 
nen Mädchen und Jungen bis 
zum Alter von 22 Jahren mit- 
machen, ganz gleich, ob 
Schülerin oder Student (bis 
zum 1. Semester), Auszubil- 


Wer kennt das nicht? 
Überall dort wo Heimcom- 
puter aufgebaut sind, wirrt es 
von Kabelsträngen und 
Zubehörteilen. 

Der Homecomputer-Schrank 
von C.P.V. macht Schluß mit 
der Unordnung, in ihm findet 
sogar sämtliche Peripherie 
Platz. 

Durch bequeme Auszugbö- 
den für Tastatur, Drucker, 
Floppy und Kassettenrecor- 
der problemlos zu bedienen, 
Kabelstränge verschwinden 
ebenfalls. 
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dender oder junge Ange- 
stellte, Bundeswehrangehöri- 
ger oder Zivildienstleistender. 
Wer noch keine 16 Jahre alt 
ist, startet in der Wettbe- 
werbssparte SCHÜLER EX- 
PERIMENTIEREN. Geforscht 
werden kann allein oder in ei- 
ner Gruppe bis zu drei 
Teilnehmern. 


Beim Wettbewerb JUGEND 
FORSCHT darf das Thema 
frei gewählt werden, es muß 
nur in die Fachgebiete Biolo- 
gie, Chemie, Geo- und Raum- 
wissenschaften, Mathematik/ 
Informatik, Physik, Technik 
oder zum Sonderpreisthema 
Arbeitswelt passen. Zusätz- 
lich ausgezeichnet werden Ar- 
beiten, die im Rahmen dieser 
Fachgebiete einen Beitrag 
zur Energieeinsparung und 
zur Verbesserung unsrer Le- 
bensbedingungen leisten; 
zum Beispiel in den Bereichen 
Arbeitswelt und Umwelt- 
schutz. 


Anmeldeschluß für die 20. 
"Wettbewerbsrunde ist der 30. 


November 1984. Teilnahme- 
bedingungen und Infor- 
mationsmaterial gibt es ko- 
stenlos bei: Stiftung JUGEND 


7 


ee 
Mit einer Größe von 90X87X45 
cm und ansprechendem 


FORSCHT e.V., Notkestraße 
31, 2000 Hamburg 52. 

Zu gewinnen sind Geldpreise, 
Stydienaufenthalte und - rei- 
sen im Werte von 

DM 100.000,-. 


Design läßt sich in jedem Zim- 
mer ein Plätzchen für den 


Compute mib 
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Mitmachen und Spaß haben, 
gleichgesinnte Freunde fin- 
den, Diskussionen mit Ex- 
perten und Anerkennung be- 
kommen - das ist auch schon 
ein Gewinn. 


Home-Computer-Schrank fin- 
den. sr 


Ill WU Xılıı WU xıııı a 


ELEX WW TELEX WW TELEX WU TELEX WW TELEX WW 


b 


„ DER SX 64 


2 Computer i im Koffer 


Mit dem SX 64 stellte Commo- 
dore seinen ersten Portablen 
vor. Die rein äußerlichen 
Merkmale sind Grundlage 
dieses Tests. 


Äußerlich präsentiert sich der 
SX64 in formschönem Design, 
der C64 ist nicht wiederzu- 
erkennen. 

Für einen portablen ist der SX 
allerdings etwas zu schwer, 
mit fast 10kg Gewicht, 
dürften längere Wegstrecken 
wohl selten bewältigt werden. 
Der robuste Tragegriff dient 
gleichzeitig als Standfuß des 
SX64. Im Kofferdeckel ist die 
formschöne. und ergonomi- 
sche Tastatur untergebracht. 
Im Gegensatz zur C64 Ta- 
Statur wesentlich flacher und 
mit einem ca. 50cm langen 
Verbindungskabel ausgestat- 
tet, ermöglicht sie dem Be- 
nutzer unabhängigen Tastatur- 
Standort. 

Nimmt man die Tastatur ab, 
kommen der eingebaute Farb- 
monitor und die Floppy 
zum Vorschein. 

Bei der Floppy handelt es sich 
um das bewährte Laufwerk 
1541 mit einer Speicherka- 
pazität von ca. 170 Kbyte. 
Direkt darüber befindet sich 
das sehr praktische Disketten- 
ablagefach.. Das große 
Manko das SX64 ist leider 


der eingebaute 5-Zoll Farb- 
monitor. Während die Farb- 
qualität außerordentlich gut 
ist, läßt doch das Erkennen 
der verschiedenen Zeichen ei- 
nige Wünsche offen. 

Bei einigen Symbolen ist 
mehrmaliges Hinschauen 
notwendig, Textverarbeitung 
ist nur begrenzt möglich. 
Eine 80-Zeichen Karte ist auf 
dem SX64 sinnlos, da absolut 
nichts mehr zu erkennen ist. 
Rechts neben dem Disketten- 
fach befinden sich hinter einer 
kleinen Klapptür die Ein- 
stellregler und eine Reset- 
Taste. 

Kontrast, Helligkeit, Laut- 
stärke, Bild- und Rot-Grünab- 
gleich können hier eingestellt 
werden. 

Durch die Kompaktheit des 
Gerätes ist ein problemloser 
und schneller Aufbau bzw. 
Anschluß gewährleistet. 
Ohne Gewirre von Strippen 
und Kabeln kann der SX in 
kürzester Zeit aufgebaut und 
in Betrieb genommen werden. 
An der Oberseite des SX64 
befindet sich ein Einschub- 
platz für Steckmodule, kom- 
patibel zum C64. 

Zu erwähnen ist noch der ein- 
gebaute Lautsprecher (Durch- 
messer 8cm), der bei Spielen 
und Musikprogrammen die 
akustische Untermalung 


Spezial-Datenrecorder für Microcomputer: 
Boston Gomputer MC 3810 


Die meisten der derzeit ange- 
botenen Gassettenrecorder 
für Microcomputer sind abge- 
wandelte Musikrecorder. 

Der neue Spezial-Datenrecor- 
der System MC 3810 von Bo- 
ston Computer ist dagegen 
durch seine Funktionen klar 
auf die Bedürfnisse der Da- 
tenspeicherung ausgerichtet: 


Präzisionslaufwerk für opti- 
malen Gleichlauf, 1200 Baud 
Übertragungsrate, Motor 
Control durch CPU, Bandzähl- 
werk, Pegelautomatik, Leucht- 
felder für die Funktionsanzei- 
gen ”READY”, "SAVE", 
”"LOAD”, ”CONTROL” und 
"DATA TRANSFER”, sämt- 
liche Interfaceanschlüsse auf 


bietet. 

Die Peripherieanschlußmög- 

lichkeiten an der Rückseite 

des Gerätes sind die schon 

beim C64 bekannten: 

- Anschluß für 2 Joysticks 

- Expansionsport (User-Port) 

- serielle Schnittstelle 

— Audio- und Videoausgang 

Technische Daten: 

— 6510 Mikroprozessor 

-64KRAM davon 38K in 
Basic adressierbar 

-20K ROM mit Basicinter- 


preter V.2.0 
- 320 x 200 Biedpunkte 
-SID 6581 3 Kanal 
Tongenerator 


Fazit: 
DER SX64 ist ein interes- 
santer “Portable”, besticht 
aurch gute Verarbeitung und 
hervorragendes Handling. 
Der Monitor hätte etwas 
größer ausfallen können, er ist 
nur bedingt einsetzbar. Durch 
die Kompatibilität zum C64 
kann auf eine riesige Hard- 
und Softwarepalette zuge- 
griffen werden. 
In seiner Grundversion kann 
der SX64 nicht netzunabhän- 
gig betrieben werden, da kein 
Akku vorhanden ist. 

(sr) 
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der Rückseite sowie ein aus ! folgenden Microcomputerty- 


der professionellen Datenver- 
arbeitung bekanntes technı- 
sches Design. 

Uber die jeweiligen Inter- 
facekabel ist der Datenrecor- 
der System MC 3810 univer- 
sell an Microcomputer von 
Commodore, Atari, Spectravi- 
deo, Acorn, Triumph Adler, 
Sinclair, Sanyo etc. an- 
schließbar. Beim Wechsel des 
Computersystems kann der 
Anwender damit den Da- 
tenrecorder MC 3810 weiter 
einsetzen. 


Hier die technischen Daten: 
Der Datenrecorder MC 3810 
ist über Interfacekabel mit 


pen kompatibel: 
Commodore 2000/3000/4000 
Commodore VC-20/VC-64 
Atari 600 

Atari 800 

Sinclair Spectrum 
Sinclair ZX-81 

Acorn B 

Acorn Electron 

Anyo Laser 

Oric 

Dragon 32 

Dragon 64 


Technische Features: 

Präzisionslaufwerk für opti- 
malen Gleichlauf, Motor 
Control (Computersteuerung), 
Pegelautomatik, Endabschalt- 


automatik, Leuchtfelder für 
Funktionsanzeige READY, 
SAVE, LOAD, CONTROL so- 
wie LED Anzeige für Daten- 
transfer. 

Sämtliche Anschlüsse für In- 
terfacekabel sowie Stromver- 
sorgung an der Rückseite 
des Gerätes, 

Monitorbuchse auf Bedie- 
nungspanel, ölgedämpfter Da- 
tenkassettenauswurf, Band- 
zählwerk. 


Datenübertragungsrate: 
1200 Baud 

Bandgleichlauf: +/- 0,3% 
Bandgeschwindigkeit: 4,75 
cm/sek. 

Stromversorgung: Externes 


Netzteil zur Wärmeableitung 
220 Volt (nicht notwendig bei 
Commodore VC-20/64 und 
Acorn B) 

Gehäuse: Farbe Greige im 
Profilook 

Masse: 25x 14x 12 cm 
Gewicht: 1,2 ka. 

Garantie: 6 Monate 


Angeboten wird der Da- 
tenrecorder MC 3810 zum 
empfohlenen Endver- 
braucherpreis von DM 98,-, 
Die Preise für die jeweiligen 
Interfacekabel liegen zwi- 
schen DM 8,- und DM 38,-. 
Nachweis über Boston Com- 
puter Handelsges.m.b.H., in 
München. 
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Bundesverband Gomputer Software gegründet 
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Rechtzeitig vor Beginn der HiFiVideo 1984 konstituierte sich am 21.08. in Düsseldorf der Bundesver- PAY 
band Computersoftware, die Vereinigung der Computersoftware-Hersteller Deutschlands. 


Vordringlichste Aufgabe des 
Verbandes wird die Aufnahme 
der organisierten Bekämp- 
fung der Computer-Programm- 
Piraterie sein. Bekanntlich 
haben Raubkopierer der noch 
jungen Industrie in den ver- 
gangenen Jahren weltweit 
Schaden in Milliardenhöhe 
zugefügt. 


Die Grundlage für die Bekämp- 
fung wird der Bundesverband 
Computer Software durch An- 
regung für eine ent- 
sprechende Rechtsgrundlage 
schaffen. Dazu gehört die 
Klärung der noch immer offe- 
nen Rechtsfragen bezüglich 
des Computer-Programm-Ur- 
heberrechtsschutzes. 


Neben der Wahrung und 


Sicherung der in der Satzung 
verankerten gemeinsamen In- 
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teressen, sieht der Verband 
eine wichtige Aufgabe in der 
Entmystifizierung des Com- 
puters und wird ent- 
sprechende Offentlichkeits- 
arbeit leisten, um den Stellen- 
wert des Computers in der 
Gesellschaft zu verdeut- 
lichen. Die Förderung und 
Entwicklung neuer Software- 
Technologien ist weiteres An- 
liegen der Software-Herstel- 
ler. 


Die zwölf Gründungsmitglie- 
der (AriolaSoft, Atari Elek- 
tronik, Commodore Büroma- 
Schinen GmbH, DataMedia, 
Hansesoft, Markt + Technik, 
Roeske Verlag, Pecher Soft- 
ware, Thorn EMI, VideoMagic, 
Strecker Elektronik sowie der 
Westermann Schulbuchver- 
lag) wählten Harald Speyer 
(44), Vorsitzender der Ge- 


schäftsführung der Commo- 
dore Büromaschinen GmbH 
und Vice President der Com- 
modore International Ltd., 
vertreten durch Heinz-Joachim 
Kröber (36) zum 1. Vorsitzen- 
den des Verbandes. Peter 
Knippel (33), designierter Ge- 
schäftsführer der AriolaSoft 
GmbH München wurde zum 
2. Vorsitzenden gewählt. 


Neben den Firmen, die 
spontan die Bereitschaft zur 
Gründung des Verbandes er- 
klärten, waren alle namhaf- 
ten Anbieter in Düsseldorf 
vertreten. Die Häuser Apple, 
Epson, Hewlett Packard, 
Acorn Computer GmbH, Digital 
Egiupment, Microsoft und der 
Otto Maier Verlag Ravens- 
burg, sowie die Vielzahl jun- 
ger mittelständischer An- 
bieter werden dem Verband 
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voraussichtlich nach ent- 
sprechender Prüfung durch 
die Geschäftsleitungen eben- 
falls beitreten. 


Sitz des Verbandes i. Gr. ist 
Hamburg. Die im Bundesver- 
band Computersoftware ver- 
tretenen Firmen beschlossen, 
im Anschluß an die HiFiVideo 
1984 Gespräche mit dem 
Bundesverband Video zur 
Koordinierung der Aktivitäten 
gegen Tendenzen einer nicht 
notwendigen Verschärfung 
des Jugendschutzes aufzu- 
nehmen, in der besonders die 
Hersteller und Importeure 
von Game-Software eine Ge- 
fahr sehen. Eine enge Zusam- 
menarbeit mit der IFBl, die bei 
der Gründungsversammlung 
als Gast zugegen war, ist dar- 
über hinaus vorgesehen. 
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Das Spiel Schiffe-Versenken besteht aus 
drei Programmen, die sich selbst nachla- 
den. Das erste Programm begrenzt den 
für Basic verfügbaren Speicherplatz, um 
neue Zeichen aufnehmen zu können. Das 
Zweite kopiert zuerst den Zeichensatz 
vom ROM ins freigewordene RAM und 
definiert dann die neuen Zeichen. Dann 
wird das Hauptprogramm geladen. 

Für das VC-20 Spiel gelten die be- 
kannten Spielregeln. Schiffe dürfen nur 
horizontal oder vertikal gesetzt werden 
und sich nicht berühren. Die Anzahl der 
Schiffe kann man selbst festlegen: 


1-3 Kreuzer (4 Kästchen) 
1-5 Zerstörer (3 Kästchen) 
1-5 U-Boote (2 Kästchen) 


Beim Setzen der Schiffe fragt der Com- 
puter zuerst ab, ob das Schiff senkrecht 
oder waagerecht liegen soll und in 
welcher Spalte (A-T), bzw. Reihe (01- 
10). Danach wird der Anfang des Schif- 
fes eingegeben. Sollte die Position des 
Schiffes nicht den Spielregeln ent- 
sprechen, so teilt der Computer es Ihnen 
mit. Gespielt wird auf dem 10x20 Käst- 
chen großen Feld. 

Der Schwierigkeitsgrad bestimmt, wie- 
viel % der Computer-Versuche zufällig 
sind, und bei wieviel % systematisch ein 


ie 
28 
38 PRINT"B 
48 END 
READY. 


Schiff gesucht wird. 
Sie beginnen das Spiel dann mit Eingabe 
Ihrer Zielkoordinaten, 2.B.: A-05. Sollte 
sich dort ein Schiff befinden, so zeigt der 
Computer Treffer an und markiert die 
Stelle durch ein ausgefülltes Kästchen. 
Dann haben Sie so lange einen weiteren 
Versuch, bis ein Schuß daneben geht. 
Sollte dies der Fall sein, so wird es durch 
einen Punkt im Koordinatensystem dar- 
gestellt, und der Computer ist an der 
Reihe. Er zeigt seinen Versuch in der un- 
teren Bildschirmhälfte in einem eigenen 
Koordinatensystem an, in dem Ihre Schif- 
fe zu sehen sind. Hat er Ihr Schiff getrof- 
fen, so fragt er systematisch weiter, bis 
es versenkt ist. 

Sieger ist, wer zuerst alle gegnerischen 
Schiffe versenkt hat. 

Mit ft können Sie das Spiel abbrechen, 
wenn Sie an der Reihe sind. Wenn Sie das 
Spiel verloren haben, oder mit fi ab- 
brechen, zeigt der Computer Ihnen seine 
Schiffe. Danach sagt er Ihnen, wieviel 
Einheiten Sie und er getroffen haben und 
den prozentualen Anteil an der 
Gesamtschiffszahl. 

Bei Schwierigkeitsgrad 0 fragt der Com- 
puter zwar nach einem bestimmten Sy- 
stem aber auch, wie Sie, rein zufällig nach 
Schiffen ab. Bei Stufe 9 wird jedes Schiff 
mit ein oder zwei Schüssen getroffen. 


Variablenbelegung: 


T1-T4: Tongeneratoren 

LA: Lautstärke 

BS: Positionspoke 

FA: Farbpoke 

K1,21,U1: Anzahl der Schiffe 

P%{x}: Positionen der Spielerschiffe 
C%(x): Positionen der Computerschiffe 


Programmaufbau: 


1000-2000: Variablenbelegung 
2000-3000: Titelbild 

3000-4000: Spielanleitung 
4000-5000: Eingabe der Schiffszahlen 
5000-6000: Eingabe der Kreuzer 
6000-7000: Eingabe der Zerstörer 
7000-8000: Eingabe der U-Boote 
8000-9000: Computer-Schiffe 
9000-10000: Spielfeldaufbau 


10000-11000: Spielereingabe und 
Auswertung 

11000-12000: Computerzug und Aus- 
wertung 

12000-13000: Spielabruch bzw. Spiel- 
ende 


13000-14000: Spieler-Sieg 
14000-15000: Computer-Sieg 
30000-31000: Sound und andere 
Routinen 


PRINT" \PT44 ,28:PT7168,8:NEW" :POKE36379,25 
POKE631,19:FOKE632,13:POKE633,131:POKE138,3 


ORDER zER”" 
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18 PRINT"ISBITTE LASSEN SIE DIE 'PLAY' TASTE GEDRUECKT":POKE36879,8 
28 FORI=1TO3E3:NEXT 

38 FOR1=8T0255:POKE4896+1,1:NEXT:POKE38863 ,205 
48 FORI1=8T02097:POKES128+1,PEEK (32768+1) :NEXT 
1808 FOR1=5348T06933 :READAY:POKEI ,AY:B=B+AY.:NEKXT 
118 IFB<YSE213THENPR INT "ERRDIIFEHLER" SEND 
128 PRINT"Ü":FOKE631,131:POKE198,1:END 

1888 DATA2S5,127,63,31,15,7,3,1 

1818 DATA2S5,255,255,255,255,235,243,192 

1828 DATA255,255,253,255,253,253,255,199 

10398 DATR2S5,255,255,255,255,253,255,235 

1848 DATA2SS,255,255,253,255,235,224 ,27 

19858 DATAB,0,0,0,8,0,8,8 

1855 OATA224,224,248,249,2490,240,224,192 

1062 DATA? ,7,7,7,255,255,255,2355 

1878 DATA255,255,51,255,255,255,255,255 

1938 DATAIE8,123,123,128,123,255,255,255 

11088 DATA?,15,63,96,64,128,192,192 

1118 DATA126,1258,126,126,128,126,126,126 

1129 DATAB,255,255,255,255,253,255,8 

1139 DATA128,126,126,126,126,60,60,24 

1148 DATA24,69,658,126,126,126,126,126 

1150 DATR®O,243,254,255,255,254,248,08 

1168 DATAB,31,127,2553,253,127,31,8 

1178 DATA123,112,120,124,62,31,14,4 

1189 DATA133,69,52,64,148,34,72,136 

1139 DATA169,°9,163,120,179,35,178,35 

1208 DATAB,64,224,64,64,64,64,64 

1210 DATAQ,16,16,16,16,255,126,68 

1228 DATA8,9,8,16,16,8,98,9 

1238 DATA255,128,128,128,136,128,128,128 
READY, 


1088 REM DEFINIEREN 
1818 T1=36874:T2=36875:T3=36376:T4=36877:LA=36878 

1828 BS=4896:FA=37888 

1239 S$= "EBL TERk. _Di INRERALHA IWW " 

12482 LE="pp call 2 UmmMmMLE “ 

1858 TR=e108S:E#=" 5 EMI Emm LLLLıe 

1052 SIF=" }':52$5=" MISI3H=" Prsgsga"g" :Ssgergr ıshh="." 

1078 POKELA,15:POKELA+1,8:POKET1-5,205:1POKE858,9:POKESS7,128 

1838 POKE3SSES,38:POKE36864, 12 

2008 REM TITEL 

2812 PRINT"IAr BISCHIFFE VERSENKENMS r" 

2228 PRINT " Spgsierpspepun]“ 

2030 FORI=16T0O1STEP-1:PRINTTAB(C1)SS" OOEMNERRI" ; 

2035 FORK=1TO49:NEXT 

2048 FORK=128T0138STEP.7:POKETI1,K:NEXT:FORK=138TO128STEP-.7:POKETI,K:NEXTK 
2858 PRINTL$S"CLD": IFI=16THENPRINT"OO" 

2858 NEXTI 

2078 PRINTSS$:FORI=1STOBSTEP-.1:POKELA,1:NEXT 

2888 POKETI,0:POKELA,IS 

2188 FORI=STOISTEP-1:POKEBS+22%CI+L1)+I,TR:POKEBS+22%CI+11+H1)+1+1,32 

2118 POKET4,250-(9-1) 

2128 FORK=ITOIO:NEXTK,I 

2158 PRINT"OOILIS4” 

2280 PRINTES 

2218 POKET4,128:FORI=15TO4STEF-.B1:POKELA,I:NEXT:POKET4,B:POKELA,15 

2228 PRINT"CIIDD" 

2238 FORK=10TO12:FOR1=9T0S:POKEBS+22EHK+1,32:NEXTI:PRINT:NEXTK 

2308 IFEDTHENFR INTTAB (9) "SBBENDEMKE" SEND 

2598 PRINT" Serie Y:":PRINT"MSMOLIVER HILGENDORF * 

2608 FORI=1TO3E3:NEXT 

30208 REM ANLEITUNG 

2001 POKELA+1,25:PRINT"LAESISSCHWIERIGKEITSGRAD 1-SEmmr " 

3892 POKE198,9:WAIT133,1:GETA$ 

3003 IFAS<"1"ORASI"3" THENGOSUB39990 : GOTO3B92 

3094 SW=VAL<A$)/19-. 1:PRINT " BelsippiingsP IELANLEITUNG J/N* 

3005 POKEI98,0:WAITI198,1:GETAS$ 

3006 IFAST>Y"J"AÄNDAS< > "N" THENGOSUB3B9898 ı A$="":G60T03985 

2307 IFA&="N"THENAOB® 

3088 PRINT*"JES 1ST IHRE AUFGABE, BÄLLE SCHIFFE DES WSEGNERS ZU VERSENKEN. " 
3818 PRINT"BPOCH GLEICHZEITIG VER-MSUCHT ER DASSELBE MIT BIHREN SCHIFFEN.M" 
3015 GOSUB39 108 

3028 PRINT*LÄBIE BESITZEN 2 ANZEI- WBGEN. DIE ERSTE ZEIGT MIHNEN, AN WELCHEN" 
3938 PRINT"SBTELLEN SIE SCHON NACHDEM GEGNER GEORTET BIHABEN, UND OB SIE" 
3048 PRINT"BDABEI SEINE SCHIFFE BW5SETROFFEN ODER VER- BWSENKT HABEN. * 
3058 GOSUB22 1908 


3969 PRINT"IDIE ZWEITE ANZEIGE BEEIGT IHNEN, AN” 

3878 PRINT"SWELCHEN STELLEN DER BS5EGNER GEORTET HAT, NND OB DABEI IHRE” 
3980 PRINT"BSCHIFFE GETROFFEN BWORDEN SIND.” 

3838 GOSUB391B8 

3188 PRINT"AM BEGINN DES SPIELS MBETZTEN SIE IHRE BWSCHIFFE." 


3118 FRINT"BDIE SCHIFFE DUERFEN BINUR HORIZONTAL ODER WVERTIKAL ANGEORDNET" 
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3128 PRINT"ZWERDEN. ZWISCHEN ZWEI ESCHIFFEN MUSS IMMER EEIN KAESTCHEN FREI* 
313a PRINT"EBEIN." 

3148 GOSUB398188 

3159 PRINT"WFUER DEN GEGNER GILT MHÄTUERLICH DASSELBE." 

3188 PRINT"BDIE ZIELKOORD INATEN WERDEN IMMER 3-STELLIGMEINGEGEBEN. ZB: AS5=ABdS 


3178 PRINT"ZUERST KOMMT DER BUCH-BSTABE DANN DIE ZAHL." 
3188 FRINT"ERMIT WFIM KOENNEN SIE DASESPIEL ABBRECHEN." 
320a GOSUBZU1AD® 

48098 REM AEFRÄAGE 

aaıa FRINT"IBEBEN SIE DIE ANZAHL KPER SCHIFFE EIN:M" 
48208 PRINT"DIE LAENGE STEHT IN OR" 

4038 IMPUT"KREUZER 4) 1-3"7K$ 

4049 IFYAL (KS) >3ORVAL (KS)< ITHENGOSUB3OB98:KS="":G0T04938 
4958 INPUT"BEERSTOERER(3) 1-5"72$ 

4069 IFVAL(Z$) :SORVAL (ZE)< I THENGOSUB39999:2$="":G0T04050 
40780 INPUT"EU-BOOTE (2) 1-5" U8$ 

405 IFVAL <U$ >) 2 LORVAL (US$) J5THENGOSUBIBOOBB:US="":GOT04978 
3500 DIMKIVALCKEI,A,2I,ZCVALCZEI, 3,2) ,UCVALCUS),2,2) 
4528 DIMPXC221),CH221) 

5088 REM SPIEIER-SCHIFFE 

s5a1@ PRINT"LIBEBEN SIE EIN:E" 


Sso:0 PRINT"BI. SOLL DAS SCHIFF KHORIZONTAL ODER BYERTIKAL LIEGEN ?" 
5838 PRINT". IN WELCHER REIHE EBZLU. SPALTE SOLL zES LIEGEN 7” 
59240 PRINT"RB. WO SOLL ES BBEGINNEN ?* 


sa5a GOSUBTA18B 

S10@ PRINTER" 3}: FOR1=6ESTO84 :PRINTCHRECITIF NEXT 
5118 FORI=1T0O3:PFRINTI=TNEXT:FRINT"18" 

SIZ98 FORI=ZTOEI:FÜRK=4TOIS 

5139 POKEBSıT2HK+L,79:POKEFA+22HK+I,6 

Si4@ NEHTK,I 

E09 KI=SYVALCKEI:IFK I=BTHENSBADO 


S21® K2=kKö+1:PRINT"B"K2"N. KREUZER (4)* 

S>29 PRINT" SIAnkngr True BEHBORIZONTAL, MUWERTIKAL":FORK= 1T0288 :NEXTK 
5225 PR INT"COBRHEIRBRPRPEBIEIT " :FORK=1TOZOD:NEXTK 

5538 GETPE: IFP&T>"H"ANDP&<Y"V"THENSZEO 

5240 GOSUB3OBSO: IFP$="V"THENSSOD 

5259 PRINT OOEBRFHOR IZONTALE":PRINT"REIHE (1-18) ? 2 Want tOam"; 

5255 FORL=1TO2 


POKE138,0:WAIT138,1:GETR$ 3 
IFL=1THENIFRS$< } "8 "ANDRS< >" 1" THENSOSUB3O999:GOTOS269 
IFL=S2ANDRI$=" | "THENIFRS$C "8" THENGOSUB300008:GOT05268 
IFL=2ANDR 1$= "8" THENIFR&< "1 ORRS> "3" THENGOSUB3B99B : GOTUS268 
GOS2UE30059:PRINT"N ID" ;R#; :RIF=RIS+RS:NEXTLEPRINT 
PRINT"MI.SPALTE (A-Q) ? A iileltO"; 
POKE198,08:WAIT138,1:GETS$ 
IFSE<"A"ORSS)"Q"THENGOSUB32898:G0OTOS31O 

PRINT"a ID"; S#:G0OSUBE30058 

5348 FORI=1T0O4:K(K2,1,1>=VAL(RISIEKCK2,T „BI=ASC(SF)I-ES+I:NERT 
5320 IFK2<ZTHENS400 

5368 FORK=1T04:FORI=1TOK2-1:FORL=1TO4 

5378 IFKCK2,K,UICIKCIH,L,IIORKCK2,K,2)I<>KCL,L,2ITHENNEXTL, 1,K:G0T05408 
5388 GOEUBSB3DBD 

533A K2=K2-1:Rı$="":60T05210 

24088 A=KiK2,1,2)-1: IFA=BTHENA=I 

5418 E=K(K2,4,2)+1: 1FE=21ITHENE=28 

5420 O=sK(K2,1,1>-1:3 1IFO=8THENO=1 

5438 U=KiK2,1,1)#+t 1: IFU=SILTHENU=1DO 

5448 FORI=0TOU:FORK=ATOE 

545 IFPI.CEORCI-1I+K)=OTHENNEXTK , 1:G0T055008 

5469 CGOSUB384088 

5470 K2=K2-1:R1$="":607T05210 

Ss588 Ris="" 

s518 FORI1=1TO4:PXC2ORCKCK2,1,1)-1)+KiK2,1,2))=K2:NEXT 

5538 FORI=1T04:POKEBS+ZERCKCK2,1,19+3)+KcK2,1 ‚e)+1l,224:NEXT 
S548 IFK2<KITHENGOSUB30599:G0T0S210 

5558 GOTO6B88 

SE0@ PRINT"COBRRRPRPPPRBRBEBBIIERTIKALE"} 

5518 PRINT"BSPALTE <A-T) ? A URItOl"; 

SS20 POKE153,08:1A1T138,1:GETS$ 

5639 IFS$SC"A"ORSS)"T" THENGOSUB38998 :G0T05628 

SE40 GOSUE3RBSA:PRINT"M OM";S$:PRINT"WI.REIHE (1- ?)»? a rt", 
S658 POKE138,8:WAIT138,1:GETR$ 

S668 IFR$<"L"ORR$)"7" THENGOSUB30000: GOTOSESD 

5665 PRINT"B ID" ;R$:G60SUB33059 

S557& FORI1=1TO4:KiKE,1,2)=NSCLSE)-64: KCK2,1,19=VALCRSI+I-1:NEXT 
5688 IFK2Z<2THENS898 

5638 O=sk<K2,1,1)-1: IFO=BOTHENO=1 

5700 U=K(K2,4,1)+1: IFU=SL1ITHENU=1O 

5718 A=K(K2,1,2)-1:1FA=OTHENA=1 

5728 E=K(K2,1,2)+1: IFE=21THENE=2O 

57380 FOR1=0TOU:FORK=ATOE 2 

5748 IFPXC2OKCI-1)+K) =OTHENNEXTK , 1:60T05888 

5758 GOSUB39409 

5758 K2=K2-1:R1#="":60T05210 

s308 Ris="" 

5310 FORI=1TO4:PXCZOHCKCK2,1,19-1 I +KcK2,1 ‚@e))=K2tNEXT 
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FORI=1TO4:POKEBS+22#CK(K2,1,19+3) +KcK2,1,2)+1,224:NEXTÜ 


IFK2SK1THENGOSUB30590:G0T05218 
G0OSUB39598 

Z1=VAL(ZE):1FZ1=BTHEN?BAO 
22=22+1:PRINT"3"22"N. ZERSTÜERER (3)" 
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62088 
68218 
62208 
8238 
&388 
E31®8 
6328 
6330 
6348 
63598 
6368 
6378 
€4998 
64108 
6438 
€448 
6458 
8509 
8518 
€ee20 
&530 

540 
8558 
8554 
8565 
€270 
8538 
SE88 
6618 
€E620 
6639 
686408 
SES59 
68668 
6700 
67108 
6728 
8730 
7999 
7818 
7028 
7838 
7048 
7059 
7058 
78978 
7929 
7039 
7100 
7118 
7128 
7130 
71498 
7150 
7160 
7170 
7190 
7198 
7200 
7218 
?-2208 
7238 
73908 
7318 
7320 


19. September ’84 


PRINT " SINelprpspnDapspcpepr ep? BRHMOR IZONTAL, ZUBERTIKAL*":FORK=1TOZB88 :NEXTK 
PRINT "[IPEHRPERPEPBBPI, " :FORK=1TOZBO:NEXTK 

GETP$: IFP&S<>"H"ANDPS<Y"V"THENSB3O 

GOSUB3885B: IFP&=*"V" THENESBD 

PRINT "OOBEESHOR 120NTALM":PRINT"REIHE (1-18) ? 2 WERImt?tORm"; 
FORL=1TO2 

POFRE1S8,08:WAIT198,1:GETR$ 

IFL=1 THENIFRS$S<C "AO "ANDRE >" 1" THENGOSUB3009B :GOTOSB3O 
IFL=ZANDR 1$="1"THENIFR$< )"8* THENGOSUB30000:GOTOSEBO39 
IFL=2ANDR 1$="8" THENIFR$<(" L"ORRE)"9" THENGOSUB30098 : GOTOSOSD 
GOSUB3O2S9:PRINT"M IM" RS :RI$=RIS+RS:NEXTLIPRINT 
PRINT"B1.SPALTE (A-R) ? 3 Kita"; 
FOKE1938,0:WAIT138,1:GETS$ 

IFS${"AYORSS)"R" THENGOSUB39O999:GOTO6 159 

PRINT" 1OD":5$:G0OSUB30058 
FOR1=1T03:2(22,1,1)=YAL(R1$):2(22,1,2)=ASC(S$)-65+1:NEXT 
IFZ2<2THEN6309 

FORK=1TO3:FOR1=1T022-1:FORL=1TO3 
IFZCZZ,K,1)<>ZC1,L,1)0RZ(22,K,2>°)2C1,L,2)THENNEXTL,1,K:G0OT06388 
GOSUB39399 

22=22-1:Ri$="":G0T06028 

A=2(22,1,2)-1:1IFA=BOTHENA=1 

E=2(22,3,2)+1: 1FE=21THENE=28 

0=2(22,1,1)-1:1FO=8THENO=1 

U=2(22,1,1d#+1:1FU=S11THENU=19 

FOR1=0TOU :FORK=ATOG 

IFPYSZOxCI-1I+K)=BTHENNEXTK, 1:G0OT06408 

GOSUB39499 

22=22-1:R1$=*":60T06028 

Ris="" 

FOR1=1T03:Pr(20#(2(Z2,1,1)-1)+2122,1,2))=22+198:NEXT 
FORI=1TO3:POKEBS+t22%#(2(22,1,1)+3)+2(22,1,2)+1,224:NEXT 
IFZ2<Z 1 THENGOSUB30500:G0T06929 

GOTO?809 

FRINT"'[TBRBBPRRPRBRBRBRBLT/ERTIKALBE" ; 

PRINT"SSPALTE <(A-T} ? 4 WUpitlm"; 

POKE13S,98:WAIT193,1:GETS$ 

IFSS<"N"ORSS>"T" THENGOSUB32298:G0OTOBSS29 
GOSUB30050:PRINT"M NO"7S$:PRINT"WI.REIHE (1-8) ? 2 ERItOM" > 
POKE138,8:1LAIT193,1:GETR$ 

IFR$S<"L"ORR$SY"&8" THENGOSUB300998:GO TOSSS® 

PRINT"q "ZRS:603UB39959 
FOR1=1T03:2(22,1,2)=NS5C(S$)-64:2(22,1,1)=VAL(R$S)I+LI-1:NEXT 
0=2(22,1,1)-1:1FO=3THENO=1 

U=2022,3,1>+1:1FU=11THENU=1O8 

A=2(22,1,2)-1: IFA=DTHENA=1 

E=2(22,1,2)+1: IFE=21ITHENE=28 

FOR I=0TOU :FORK=ATOE 

IFPA<C2ORL 1-1) +K) =SBOTHENNEKXTK , 1160T06708 

G0OSUB39498 

22=22-1:R1$="":G60T06028 

Riıs="" 

FOR1=1T03:PAX20%#(2(22,1,1)-1)+2(22,1,2))=22+18: NEXT 
FOR1=1T03:POKEBS+22%#(2(22,1,1)+3)+2(22,1,2)+1 ,224:NEXT 
IFZ2<Z 1 THENGOSUB39508 : GOTOSB 1O 

GOSUB30599 

Ul=VAL(US) 

V2=U2+1:PRINT"g"U2"M. U-BOOT <29)"” 

PRINT " ERInLrEngnIn tt? HORIZONTAL, SVMERTIKAL":FORK=1TO2OB:NEXTK 
PRINT " ODEIBH BEBIE EB. " : FORK= 1 TOZOB:NEXTK 

GETPS: IFP&CY"H"ANDPS<Y"V"THEN?D3B 

GOSUBE30050: IFP$=*"V"THEN?S88 

PRINT "OIBBESHOR IZONTALM":PRINT"REIHE (1-18) ? 4 RnIt tOmm" > 
FORL=1TO2 

POKE1338,8:WAIT198,1:GETR$ 

IFL=1 THENIFRS<C > "8 "ANDRS( >" 1" THENGOSUB3000B :GOTO7839 
IFL=ZANDR 1$=*"1" THENIFR$< "8" THENGOSUB39B90:GOTU79S8 
IFL=2ANDR I $="O"THENIFRS<C" L"ORR$> "93 * THENGOSUB39008:G0T079938 
GOSUS38852:FRINT"A OM"SREI :RIS=RIS+RS:NEXTL:PRINT 
FRINT"WI.SPALTE (A-5) ? 2 Bra"; 
POKE198,0:WAIT138,1:GETS$ 

IFS$("A"ORSEI"S" THENGOSUB39989:GOTO7158 

PRINT"E 10" ;S$:50S5UB3B859 

FOR1=1T02:UXU2,1,1)=VALCRISI EUCU2,1,29=2ASC(S$)-65+1:NEXT 
IFU2<ZTHEN?398 

FORK=1T02:FOR1=1TOU2-1:FORL=1TO2 
IFUCU2,K,1I<CDUCI,L,1IORUCU2,K,2ICYUCI,L,2>THENNEXTL,1,K:G0T073088 
GOSUB3BO309 

V2=U2-1:R1$="":G60T07929 

A=U(U2,1,2)-1: 1FA=BOTHENA=1 

E=U(U2,2,2)+1: IFE=21ITHENE=28 

O=U<U2,1,1)-1: 1FO=SOTHENO=1 


Compute mi 1 


12 


UsU<U2,1,1)+1: IFU=S11THENU=18 
FOR 1=0TOU :FORK=ATOE 
IFPACEBKCI-1I +K) =BOTHENNEXTK,1:G0T07408 

50SU838408 

UV2=U2-1:Rl$="":G60T07928 

Ris="" 
FOR1=1T02:PXc20#(UcU2,1,1)-1)+U(U2,1,2))=U2+20:NEXT 
FOR1=1TO2:POKEBS+22#CU(U2,1,1)+3)+UCU2,1,2)+1,224:NEXT 
IFU2<UI1 THENGOSUB30599:GOTO7B828 

GOTOSDOHD® 

FRINT"CIPRRREPRPEPREBBET/ERTIKALE" 5 

PRINT"BSPALTE (A-T) ? 4 nıtD" > 
POKE193,8:WAIT193,1:GETS$ 

IFSS<"A"ORSEI"T" THENGOSUB398888:GOTO7528 

GOSUB30058 PRINT" ID"7S$:PRINT"BI.REIHE (1-3) ? A BIO"; 
POKE198,8:WAIT198,1:GETR$ 

IFR$SC"L"ORR$SI"9" THENGOSUB30008:G0T07558 

PR INTR$:GOSUB3Q95® 
FORI=1TOZ:UCU2,1,2)=ASC (55) -64:UCUL,1,1)=VAL(RSIHL-LENEXT 
O=U<U2,1,1>-1:1FO=BTHENO=I 

U=UCU2,2,19+1: 1FU=S11THENU=18 

A=U(U2,1,23-1: IFA=BOTHENA=1 

E=zUCU2,1,2)+1: IFE=ZITHENE=28 

FOR1=0TOU :FORK=ATOE 

IFPI.CZORLI- 1) +K)=BTHENNEXTK ,„ 1:60T07708 

GOSUBE39498 

U2=U2-1:R1$="":G60T07928 

Ris="* 
FOR1=1T0O2:PX(28x(UCU2,1,1)-1)+UCU2,1,2))=U2+28:NEXT 
FORI1=1T0O2:POKEBS+22#CUCU2,1,1>+3)+UCU2,1,2)+1,224:NEXT 
IFU2<U1 THENGOSUBSBSO0:GOTO?7O18 

REM COMPUTER-SCHIFFE 


‘ FORI=38TO1EBOSTEP.S 


PÜKESESES, T:NEXT 

FRIHT" eeleisiege INEN AUGENBLICK BITTERICH SETZE MEINE SCHIFFE." 
POKE36365,38 

IFK 1=8THENS408 

FORK2=1TOKI 

IFRNDO(CT1)).STHENSEOO 

P1=INTCRND<(1)#198) +1:P2=INT<SRNDCIIKIEI +1 
A=P2-1:1FA=OTHENA=I 

E=P2+5: IFE>2OTHENE =28 
O=P1-1:1FO=8THENO=1 
UsPı+1:1FU=11THENU=1® 2 
FORI=OTOU:FORK=ATOE 

IFCHC28#C 1-19 +K)=BTHENNEXTK, 1:GOT08194 
GOTOSI3O 
FUR1=1T04:C%K(284(P1-1)+P2+1)=KZ:NEXT 
PRINT"Z"K2"I. KREUZER" :NEXTK2:GOTOS488 
PL=1INTCRNDCIY)#?) +1: PZ=INTCRNDC II AZO) HI 
A=P2-1: IFA<{ITHENA=I 
E=P2+1:1FE>ZOTHENE =28 
O=Fi-1:IFO<XITHENO=1 

UsF1+5: IFU>IBOTHENU=1O 

FOR 1=0T0OU :FORK=ATOE 
IFCHCZORCI-1)+K)=BTHENNEXTK , 11GOTO8390 
GOTO8202 


FOR1=1T094:C%i29%#(Pl+1-2)+P2)=K2:NEXTI 
GOTOSE196 " 


IFZ I1=BTHENS?ODO 

FORZ2=1T021 

IFRND<1)>.S5STHENSEO8 
Pi=INTCRND<C1)#1B8)+1:P2=INTCRND (1) «17 )+1 
A=P2-1:1FA=BTHENA=I 

E=P2+4: IFE>2ZBTHENE=28 
O=P1-1:1FO=8THENO=1 
U=Pi+1:1FU=11THENU=18 

FOR1=0TOU :FORK=ATOE 

IFCHC28xC 1-1) +K)=BTHENNEXTK, 1:G0OT08518 
GOTO8430 
FOR1=1T03:CH.X29%x(P1-1)+P2+1)=Z2+18:NEXT 
PRINT"ZW*22"N. ZERSTÜERER" :NEXTZ22:G0OT08788 
PI=1NTCRNDC1IKSI +L:PZ=INTCRND<CIIK2O I HI 
A=P2-1:1IFA<ITHENA=I 

E=P2+1: 1FEIZOTHENE=20 
O=P1-1:1IFOXS1THENO=1 

U=sP1+4: 1FU>LIOTHENU=1® 

FOR 1=0TOU :FORK=ATOE 

IFCKCZBORCL- 1) +K)=BOTHENNEXTK , 11GOT08688 
GOTOSEBDO 
FOR1=1T03:1C%(28x(Pi+1-2)+P2)=22+10:NEXTI 
GOTO8SSZO 

b 

FORU2=1T0OU1 

IFRND<(1)>.STHENSIOO 
PL=INTCRNDC1IKIO)+L:PZ=INTCRNDCIIKISEI HI 
A=P2-L:1IFA=BOTHENA=I 

E=P2+3: lIFEFZOTHENE=20 


Compute mip 19. September ’84 


19180 
10168 
191708 
12130 
18130 
10288 
192210 
198228 
19238 
198248 
198258 
18278 
18408 
18418 
SUB31 
18438 
18498 
195088 
198518 
1893908 
10318 
11008 
113108 
11015 
11828 
11a21 
11822 
11023 
110824 


19. September ’84 


8770 U=Pi+1:1FU=11THENU=1O8 

8788 FOR 1=0TOU:FORK=ATOE 

8730 IFCHiZORrC 1-1) +K)=BTHENNEXTK, 1:G60T08810 

83398 GOTO8739 

8318 FORI=1T02:CH(28%#(Pi-1)+P2+1)=U2+29:NEXT 

8328 PRINT"SEII"UE"l. U-BOOT" :NEXTU2:GOTOIOO8 

8908 PI=INTCRND<1YKS) +1: PE=INTERNDKII RED) HI 

8318 A=P2-1:IFATITHENA=1 

3920 E=P2+1: 1FE>ZOTHENE=28 

8339 O=P1-1:1FO<ITHENO=1I 

83340 U=P1+3: IFU>IBOTHENU=1O 

8358 FOR I=UTOU:FORK=ATOE 

SIE IFCHBAHrC1-1)+K)=BTHENNEXTK,1:60T08338 

83378 GOTOSIAB8 

83898 FOR1=1T02:C7(20x(P1+1-2)+P2)=UE+20:NEKXTI 

8398 GOTOSSE2A 

3800 REM SPIELFELDAUFBAU 

3018 PRINT" IRB" :FOR1=55T034:PRINTCHR&(1)5 :NEXT 

Sa2z0 FORI=1TO3:PRINTI:NEXT:PRINT"1O" 

3838 FORI1=2T0O21:FORK=2TO11 

3949 POKEBS+22KK+1,73:POKEFA+ZEHK+1,6 

3053 NEXTK,I 

SASQ FRINT:FOR1=1T0O3:PRINTI:NEXT:FRINT"10"; 

3978 FORI=2T021:FORK=13T022 

3838 POKEBS+ZEAK+L,73:POKEFA+FE@AKK+I,6 

3839 NEXTK,I 

“500 REM SCHIFFE 

3518 FÜRK=OTOI:FORL=1TO2B:P=Kr29+l 

3520 Z=e224:Al=ltiA&=-1:N13=20:A4=-20 

93538 IFP%CP)=6THENITOO 

3535 IFK =BURK=3UR1=1OR1=ZOTHENGOSUB3EBH 

3548 IFPYAP+N2 I =BANDPY<P+N4) =SDANDPY(P+A3) =BOTHENZ =1907:G0T03788 

3550 IFPAXP+NLI=BANDPACP+N4 I =BANDPA(P+A3)=BTHENZ =106:G0T09798 

3568 IFPXCP+ALI<C>OANDPALP+A2)I<YBOTHENZ=193:G0T09798 

3570 IFPXIP+A4 ) =OANDPYCP +2) =BANDPY<P+ALI=BTHENZ =185:G0T09708 

3580 IFP%<P+A3) =BANDPACF ıN2) =BANDPA<P+A1)=BOTHENZ = 104:60T09798 
538 IFPYCP+RA3I<HOANDPICP +A4)<>OTHENZ =192:G60T03708 

3585 STOP 

3500 IFK=BTHENA4=-P 

3618 IFK=3THENA3=-P 

3620 IFI=1THENAZ=-P 

E39 IFI1=29THENAI=-P 

3349 RETURN 

3700 FOKEBS+2Z2KCK+13)+I+1,2 

9718 IFZ<>224THENPOKEFA+Z2RHCK+H13)+I+1,® 

3500 NEXTI,K 

3939 FORI=8TO21:FORK=BTOI 

39919 IFPEEK(BS+HLEHIK +13) +1) 224 THENPOKEBS+E2KCK+13I+1,32 

3928 NEXTK,I 

3359 FOR1=0T021:FOKEBS+Z2K12+1,64:POKEFA+Z2K12+1,6:NEXT 

18088 REM SP IELERE INGABE 

18818 PRINT"BSIE BEGINNEN" :FORI=1TOSE3:NEXT:PRINT"S 2 
18028 PRINT"AIHRE EINGABE BITTE: "7:FORI=1TO3E3:NEXT:PRINT'"G ”5 


18188 PRINT"SIHR ZIEL: 9 M-4 @"; 

18119 FOKEI9I8,U:WAITIISS,1:GETSE: IFSE="W" THENIZ008 
18128 IFSSL"A"ARSSY"T" THENGOSUB38908:G0TO1O11DO 
18152 FRINT'ERBBPEIPDEIBEBI" SE "BE" ; 

18138 Ril&="":FüRL=1T02 


O=P1-1:IFO=8THENO=I 


FOKEi3E,0:WA1T198,1:GETR$: IFR$="W" THENL20008 

IFL=1ANDRS< > "BO "ANDRE >" 1" THENGOSUB39999:G0T018159 

IFL=ZANDR 1$=" 1 "ANDRS<)"O" THENGOSUBS30000:60T010159 

IFL=SSRNDR IE= "9 "ANDRES "1 "ORRS$S>"3" THENGOSUB3B990:GOTO 181598 
Ri&=RIS+RE:PRINTR$F :NEXTL 

Pl=VALCRISI:PFSEASCISBI-FA 

PP=2BKXP1-1)+P2: 1FCHiPP)=BTHENIB3IBOO 

22=CH(PP):CA(PP)=39: IFZZ=33THENI18898 

FOR1=1T0208: IFCHCII<>ZZTHENNEXT:GOTO 19498 
PRINT"S4"TAB< 15) "TREFFER" 

POKEBS+Z2#(Pi+i)+P2+1 ,2294:POKEFA+ZEKCPI+L)+P2+1,4:G0SUB393088 
GOSUB31288:G6G0OT0 10188 

PRINT’ 2 VERSENKT ="; 
POKEBS+22#(Pl+1)+P2+1,224:POKEFA+HZZHCPI+1)+P2+1,4:G0SUB39398 :GOSUB38998:G0 
o98 
8=0:FCRI=SITO200:K=X+CKC 1) NEXT IFX/93- 1INTCK/39) JIE-STHENIB198 
GOTO13898 

PRINT"SIHAR SCHON GETROFFEN!" :G0SUB30788 

GOTO11080®8 

PRIMT"E"TRAECISI "WASSER" 

POKEBS+22%4(Pl+1l)+P2+1,114:G0SUB396908 

REM CCMPUTERZUG 

IFXTHENIFR7/33= INTCA/33) THEN13888 

GOSUB31909 

PRINT"SGMEIN ZIEL:Y m-3 m"; 

IFTETHEN1 1508 

IFRIND <15 >5WTHENI 1939 
FÜR1=ITO2OD: IFPZC1)I =BOCRPZEII >A4BTHENNEXT:STOP 
P=1:P1=INTC<(P-19720):P2=1NT(P-P1x28):G60T01187®& 
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5 
11828 
11048 
11858 
11020 
11BES 
110? 
11188 
11118 
11126 
13127 
11138 
11135 
11148 
11150 
11168 
112808 
11218 
11228 
11225 
11230 
11248 
11258 
11268 
112704 
11288 
11230 
11295 
11236 
11398 
11305 
11326 
11310 
11528 
11530 
115980 
11510 
11515 
11520 
11538 
11548 
11545 
11554 
11568 
11570 
11532 
11530 
11595 
11800 
11685 
11618 
11700 
117108 
11728 
11730 
11E09 
[Be Ezrula] 
12238 
12205 
120108 

2828 
12030 
12040 
12050 
120879 

2100 
12118 
ızı20 
12130 
12 14C 

12158 
12200 
12218 
12220 
12238 
122408 
1225 

122698 
122708 
12308 
123108 
12328 
12350 
12408 
12418 
12588 
12518 


P=INT<{RND!1)#2008+1) 

IFPKPD=SSICRPTCPI=SSTHENI 1950 
P1=INTC<P-1)729):P2=1NT<P-P1x20) 
IFP1/2=1INT<CPIY/ZIANDPZZZ<S>INTCPZZ)ITHENI 1930 

IFFIZ2S> INTCPL/2IANDP2Z2=INT<P2/2)THENI 1838 
IFFPZCP)I=SBOTHENPYCPI=38:G0T011308 
Z=PÜ(P9:F7CP)=39:FOR1=1T0208 

IFPZCLISHZTHENNEKT:GOTOL11200 

RESCHRECF2HEII+"-"S IFPI=SSTHENRS=SRS+"10":GOTO11138 
REERE+"BO"+RIGHTEFISTRECPI+LI), 1) 

POKEFA+Z2H(<PI+13)+P2+1,4 

FRINT"S"TABCIO)IR$S" MTREFFERS"F:PL=B:L0O=-LO+1:T(CLO)=P 
GOSUB328809:605UB3 1988 

IFTE=BOTHENTE=P: TM=TE:GOTO11028 

GH=1:G60T0119828 

PiI=1NTC<P-1)7/28):P2=1NT(CP-P1xr28) 
RE=SCHRE(P2+64) +*-": IFPL=I3THENRFSRS+"18":GOTOL1239 

RS=SREt "BO" +RIGCHTFISTRE(CPL+1),1) 

PRINT"3" TABC1O)IRS:FORK=1TOL1BB:NEXT 

FRINT'IA 2 VERSENKT wu"; :LO=SLOt1STCLO)=P 
POKEFA+22#(P1I+13)+P2+1,4:PL=9:GH=0:TE=8:PO=B:TM=d 
FOR1=1TOLO: IFTCLIC=SISOTHENIFPACTCL)I +28) =OTHENPZCTCII+28)=38 
IFTCIDDEBTHENIFPACTCEII-2Z8)=BTHENPACTCIY-298)=38 
IFCTCLI-INTCTCLIZEBI KEBYCYIANDPACTCILI- LI =BTHENPZCTCIYI-1)=98 
IFCT<CII-INTCTCLIZ2EBOIR2BI<YIBOANDPYCTCILI+LI=SBOTHENPYZCTCII+LI=98 
NEXTI:LO=9:G605UB308308 :GOSUB30990:G0OSUB3 1008 

K1=X1+1: IFR1I<>K1+Z1+UITHENI 19208 

GOTO 149008 


RS=SCHREIP2Z+E4) +" -":IFPI=SSTHENRS=RES+"19":GOTO1131O 
RS=SR$+"O"+RIGHTSCSTRE(PLI+1),1) 

PRINT"S"TRABCIBOIRS" WASSER"? 
POKEBS+Z2#CPI+13)+P2+1,113:PL=l 
GOSUB398609:G0OSUB31009:GOT0O11908 

IFGH=1THEN11780 

IFGH=BTHENPO=PO+1:G0T011528 

PL=1:G0T011788 

IFTE<=Z3ANDPO=ITHENI1S51® 

IFTE >LSBANDPFO=3THENI 1518 

IFCTE-INT(TE/298) #20) =1ANDPO=4THENSTOP 
IFCTE-INTCTE/20) 20) =9BANDPO=ZTHENI 1518 

IFGH=1THENI 1608 

IFPO=1THENP=TE-28 

IFFPG=SZTHENP=STE#I 

IFPO=3THENP=TE +28 

IFFOÖ=4THENF=TE-1 

IFGH=1THENGOTO11S28 
IFPHCPI=3IORPAHCP)I=3SANDGH=BTHENI IS1® 
IFPÜCPI=3IORPY<PI=33STHENPL=1:GOTO11788 
Pi=INTC(<P-1I72B8):P2=INT(P-P1x28):60T0118708 
IFPL=BTHENTE=P:GOTO11SS® 
IFPO=1ORPO=2THENPO=PO+2:G0T011730 
IFPO=SSORPO=4THENPO=PO-2 

TE=TM:GH=® 

FL=8:G0OT011568 

GCTU1B8108 

REM AESRUCH 

FRINT"S rr+++ SCHADE +++%++r"3:FORI=240T0148STER-1:FORK=ITOS3 
FOKETI,1+K:NEXTK:FORK=3TOISTEP-1:POKETL,1+K:NEXTK,1 
POKET1,0:PRINT'"3 "5 

FRINT"BRSIEINE SCHIFFE:" 

FOR1=9T03:FORK=1TO2U:P1=1Ix290+K: P2=s22xCl+t2a)+Kr+l 

IFPEEK (BS +P2) =224THENPOKEBS +PZ2, 113 

IFCHP1I< >OTHENPCKEBS+F2 ,224:POKEFA+P2,4 
NEXTK,1:GC05UB30 108 

S1i-R:C1=B:FORL1=1T020H 

IFCH: ID SS3THENSI=SIHI 

IFFrÜI STHENCI=CIH+I 

MERT:GSK 144 +2 Ir SH Ui 
S2=INT(S1/6%10B):C2=1INT{C176%*188) 

PRINT"WSIE HABEN VERSENKT:M" 

PRINTSITAB<3Z) "EINHEIT = "S2a"gf.": IFSI<>LTHENPRINT"O"TABCIO)"EN" 
PRINT"WSUICH HABE VERSENKT:M" 

PRINTCI "EINHEIT = "c2"f": IFCISYITHENPRINT"O"TABCIBOI "EN" 
PRINT"IU": IFCI1>=5SITHENIESOD®O 

PRINT"AZDPAMIT HABEN SIE GE -BRBISLWONNEN. ":PRINT"ERBBBERUBKISRATULIERE I!" 
FORI=1TO18:FORK=288T02498:POKET2 ,K:NEXTK:FORK=248TO20B8STEP-1 
FOKET2,K:NEXTK, 1:POKET2,8:60T012500 

IFC1=SITHENI2488 

PRINT"DAMIT HABE ICH GE- BJONNEN. " 
FOR1=1T0S5:FORL=254T0 1I28STEP -1:POKET2 ,L:NEXTL,I:POKET2,® 
GOTO 12598 

PRINT "BRRBELE ICHSTAND" 
FOR1=254T01255TEP-.1:POKETI,1:POKETZ,1:NEXT 

GOSUB38 198 

PRINT" WNOCHEBE INIEISF EL MEI? " 


Compuhe ni 19. September 
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125298 POKE193,8:WAITI193,1:GETA$ 

125390 IFASC>"J"ANDAS<C>"N" THENGOSUB3B899:G0T0 12520 
12548 IFA$="J" THENRUN 

12558 ED=1:60T01988 

13988 REM SPIELER-SIEG 

13818 FOR1=1T0208 

130828 IFCHCII=SSSITHENS1=SIHI 

13838 IFPZC1I=ISTHENCI=CIHI 

13849 NEXT 

13058 G=K1x4+2143+U1x2 

130868 S2=INT(S1/G#188) ıC2=1INTCC1/6*188) 
139878 GOTOI12200 

14888 REM COMPUTER-SIEG 

14818 FOR1=1T02208 

14028 IFCHLLI=SSITHENSI1=SIH+I1 


140398 IFPACII=SSTHENCI=CIHI 30128 POKEBS+505, 1E27:FORK=1T0200 :NEXTK :POKEBS +5905 ,255:FORK=1T0288:NEXTK 
14848 NEXT 30138 GOTO39118 

14059 G=Kix4+21x3+U1x2 302908 Si=B:RETURN 

148608 S2=INT(S1/6%189):C2=INT<C1/6*108) 3u300 GOTO230480 

140708 GOTO120308 30408 PRINT"SIBIPIESE POSITION 15T NICHT MOEGLICH." :605UB30008 
30888 POKET1,123:POKE1383,8 30418 FORZ22=1TO2E3:NEXT:GOSUB395A9 : RETURN 

30018 FORZ2Z=1T02009:NEXT 30598 FOR2Z=3398T0480 :POKEBS+Z2 ‚32:NEXT 

38028 POKETI,B:RETURN 38518 FORZ2=9T044:POKEBS+ZZ ‚32:NEXT 

38058 FOKET3,248 30528 RETURN 

38059 FORZ2=1T0S9:NEXTZZ 30600 POKET2,200:POKET3,199:POKET4 ,254 

se078 FOKET3,B8:RETURN 38618 FORI=15TOBSTEP-.2:POKELA,TI:NEXT:POKELA, 15 

38188 POKE198,8:POKEFA+505,8 30629 POKET2,98:POKET3,8:FOKET4 ,8:RETURN 

38118 GETAS$: IFA$< >" " THENRETURN 397988 FORI1=288T0132STEP-1:FORK=1TO3 


38718 POKET3,1+K:POKET2,I+K 

38728 NEXTK:FORK=3TOISTEP-1 

38738 FÜKET3,1+K:POKET2,I+K:INEXTK,I 

39748 POKET3,8:POKET2,8:RETURN 

30808 FOKET4,128:FOR1=15TOBSTEP-.87:POKELA,TI:NEXT 

38818 POKET4,8:POKELA, 15:RETURN 

309388 FOR1=1T03:FORK=189T0248STEP.6 . 
38918 POKET2,K:NEXTK:POKET2,8:FORK=1TO2ZE2:NEXTK :NEXTI:RETURN 
31008 FORJ=1TOZE3:NEXT:PRINT'"E "3 :RETURN 
READY. 


TASTATUR-MEISTER® ist da! 


Gibt die schnelle Referenz für Befehle, Optionen und Formate direkt an den Arbeitsplatz - 


BARESÄETNNE TER 


BASIC 
| SYNTAX- 
Funktionen | SYNTAX, 
1 
| 
ER 
H 
z se a Mm £ R \ 
Bi 
| :<sEL AL AA 
TEUER- 5. = 
en u ı et STATUS- 
Schneller BRETTEN TEEN a .ö ; BE = 4 Bez 
Überblick } “ A 
rer ı_ : FARBEN 
ASCII Tabelle zum Aufhängen Tabellen 


(Nicht abgebildet 


: FÜR COMMODORE on Sie bitte TASTATUR-MEISTER: 
TASTATUR-MEISTER® VC 20 und C-64 a 


D per Scheck (zzgl. 5,- DM Versandgebühr) 


© Befehle vollständig vorhanden, mit voll ® BASIC x a DM 29,90 (liegt bei) 
ausgeschriebener Befehlsbeschreibung © SIMON’S BASIC x 6 DM 29.90 
® MULTIPLAN ı DM 29.90 
® Alle Steuertasten übersichtlich eo Ay ee DM 27.00 
SCHABLONE aus: @ Widerstandsfähigem Kuststoff (für eigene Anwendungen) 
®@ Dauerhaftem Druck Schablonen auch für IBM-PC erhältlich. 


® Eingeteilt nach Nutzungsbereichen Das 1.1/2.0, BASIC 1.1/2.0 WORDSTAR, MULTIPLAN 
LOTUS 1,2,3, BLANKO 


Händeranfragen erwünscht. Hersteller: | FRIWA-Vertrieb - Reisingerstr. 6 - 8München2 - Tel. 089/53 0450 : Telex 5213775 


PLZ... 


19. September '84 


Zunächst ist der Rechner einmalig mit 
dem Programm “Barrieredata” zu laden. 
Dieses erzeugt auf der Diskette das Ma- 
schinenspracheprogramm “mpg”. 

Nun ist der Rechner mit dem eigentlichen 
Spielprogramm “Barriere” zu laden. Es 
handelt sich hier um eine Version des 
Spieles “Break out”. Nach dem Starten 
fragt das Programm nach der gewünsch- 
ten Spielversion. Diese ist durch Rechts- 
und Linksbewegen des Joysticks 1 
einzugeben: 


Version 1: Mauer sichtbar, normale Ge- 
schwindigkeit, ein Spieler 

Version 2: = Version 1, jedoch für zwei 
Spieler 

Version 3: Mauer unsichtbar, normale 
Geschwindigkeit, ein Spieler 


BARRIERE 


für den Gommodore 64 


Version 4: = Version 3, jedoch für zwei 
Spieler 

Version 5: Mauer sichtbar, 
Spielmodus, ein Spieler 
Version 6: = Version 5, jedoch für zwei 
Spieler 

Version 7: Mauer unsichtbar, schneller 
Spielmodus, ein Spieler 

Version 8: = Version 7, jedoch für zwei 
Spieler 

Version 9: Anfängerkurs (Mauer sicht- 
bar, langsamer Spielmodus, nur ein 
Spieler) 


schneller 


Nach der Auswahl wird das Spiel durch 
Drücken des Feuerknopfes von Joystick 
1 initialisiert. 

Nach erneutem Druck des Feuerknopfes 


erscheint der Ball. Dieser ist nun mit dem 
Schläger zu treffen. Prallt der Ball gegen 
die Mauer, so wird dort ein Stein heraus- 
gelöst, wofür es je nach Farbe Punkte 
gibt (2,5,8). 

Zu Bemerken ist noch, daß der Ball in ge- 
wisser Weise zu beeinflussen ist. Trifft 
man diesen nämlich mit der Schlä- 
gerkante, so wird er in die gleiche 
Richtung geschlagen, aus der er gekom- 
men ist. 

Wem das Spiel zu schnell oder zu 
langsam erscheint kann durch Ändern 
der Befehle POKE 49673,x bzw. POKE 
49801,x im Basicteil, die Geschwindig- 
keit beeinflussen. x sollte jedoch nicht 
kleiner als drei gewählt werden, da sonst 
Fehler im Spielablauf auftreten können. 


19 OFEHI.S,1, "MPG" :FRINT#L,CHREISICHREL 1329; Ale 

112 FÜRI=43152T059313: READG:FRINT#1 CHRFCOF SS A=SAHit: NEAT:CLOSEI 

125 IFAZ#145325THEHNPRINT "ACHTUNG FEHLER IN DATAZEILEN" 

121 IATH 173,.165.295.41.1. 205,16. 233.0. 208. 203,.8,173, 16, 203,3 

122 DATA 1.141.165. 268, 75.79.1392: 173,8. 208, 201,66, 248,493, 233.0 

123 DATA 265, 76,79.132,173, 18.283,41, 4.208. 14,235. 4,208: 2858,58 

124 DATA 173. 16,208, 3.4,141.16, 205.96, 173, 4,265, 201,66, 240,26 

125 Latin 229, 4.205,36, 173.1,220, 261,247, 248,181,261,251. 248.12: 173 
1265 DATA ö d,2601.119. 248,206, 261,123, 240, 35,36.173,16,2685, 41,1 
127 DATA z RK 3.8 208, 201,18. 248,241. 206,6, 268. 76,73,192, 266 
125 DATA 85: 205.233, 1, 141,16. 2608, 76, 73,132 
122 DATA 1 3, 41,4; 265,11,173,4.288, 251,10, 246, 204, 2068,4 
123 DATA 25 4.205,16:135.585,173, 185,285: 233,4. 141, 15.203 
1531 DATA 365 ; 5:.5:173:16.208.9.2.141.16.263, 183,53 

132 DATA 13: 205.9.,56,173.15.,288,. 233,2, 141,168. 208, 266 
133 DATA 5,2 32,233, 3, 208,36, 206, 3,208, 95.185.55.133 
134 DATA 32: 655.192,32.65.132.173,3, 205, 251,250. 208,3 
1353 DATA 76, 74,263,14,163,137,141,58.139,163.1,133, 146 
135 DATA 12 ‚135,173.15.258.41,2:.2053.15.173:.2. 209,261 

137 IATA 53 181,141,56,1 76,23:133.173,2, 203, 201.32 
13 a 14: 141.565,139,3 5.1365,126, 173,38. 288. 246, 72 
12: is 323:112:135.1 251,141,58.199,173,16,205.41 
149 r 5,265,41,4, 208: 4,84, 75,63: 133,596, 175 

141 E 5.174.565 4,177.,248:12,261.8, 168.17 

142 1 3.133, 785» 231,9,45,5: 1659, 1E1.141.56 
14. 1 ‚232.1 lea a: 1657,56.173,2,263 
i44 & n ‚e4 143.133, 74.74, 74,123 

14: 1 „Erd ES. 178. 199,32: 133.179,56 
145 i 3 33,173,133,171:159.0,133,2 

147 1& . 155, A eg ee 
i4o 17% 1 »155.4,123:179, 159,8 
143 17 be 139, 201.197 248.12, 153, 1655. 242 
154 Pur 5 55,169, 244,15, 


'84 
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DATA 55. 
IATA 2 
; DATA 
DATA 2% 
=“ DATA 
» DATA 21. 
" IHTA 56 
; DATA 
DATA 
a DATA 
IATA . Er . : 
2 LIATA = . a, 1AE .ıl. 229, 201,2 
> DATH 268, 157.134, 76 »185,153, 28: 
IATA 134.28. ",2l.168.6,.] ‚169, 38.145 
IATA 189.248, 43.133.285 34, 155,0.1 
DATA 3,2603.1.38: ; 180,216. 134, 
7 DATA 2 a4, 149,28, Bee le 24 
DATA z1,16 3,21, 202. 208, 230 


- 


= ch“ 


DATA 18: 
DATA 5: 
DATA 
IAtn 


lt il 


5 
E 
7 
7 
\ 

FR 
Ir 
U 

F 
T. 


a N Sue DEP zn 


u nn 


Üeh E u DE RE SED RE HERE] 
ungen 


4 DATA 
LATa 
& IAin 


EEUN En NE N Bee et 


1 
i 
1 
i 
i 
1 
i 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 
1= 
1 


IATA 
DATA Z 


en 


En 


:HEXT 


oe) 


„125: FOKEW+2,153 
:E = 


a 
a) 


58.0: POKESS2E1,0: 5: FRINTEHREL 14)" and a  ARAARREITENEREN" 


Felt Pit vs dub de de de ed db jmd 


A BARON El 


5 BI "LE" Bringen + 23m 
5 Fi=" Se 2 M:F=" SÖPFEICHT Er o .IEDIG" 
g I:=" ne HM a:G=l:J1=eisz2l 
3 =" 1 al ‚2 m 
218 FREIHT" 1 a": FirRI=1T02:PRIHTDE:HEAT:FRINTA 
$, AF.BF.BE.CHCH 
22a Forl=1T010: FRIHTDEHEXTIPRIHT" heil Au" :FRIIN 
TD&,D# 
238 FRINT"SRödeeteleleisieteleie" TABELLEN" DWELECT I ANME". TAEXISD "MEN USING" 
49 FRINTTABLIAN A OTSTICE 1" 
259 FEINHTTAELISSCERERSTOH"G" AS". TABLE "RE "FE" ETYT 


F= RIGHTFS a Lee =. ‚13: ESFEERK JS IFERAHLIEPSÖTHENSOS 


FOANGS>=SÖTHENG=G- 1: IF THENG= 
FÜRI=1T088: HEAT - GOTI258 - DATA2SS. 359,132, 255,255, 192, 255,255 
FREIHT"TTIITTITTY :FORI=S1T03:FRINTTABGISH" ":HEHT:F 
61. 4 

 FRIMT" Alla -TT :FOKES3E3A,. 1: FOKES32S1,1 
FÜREYHZ1.1:FÜREIES.B: IFGZ/Z-IHTIGFZIHSSBTHEHZYB 

FRIHT"I RR u 17": FÜKEV+21.5:FOEE1ES,1 
BRETT EFTTTTTITERTERETETTTTETTTHERFT TTS 24a 

59132: PÜHE43214, 1: FÜRE43S17, 233 FÜOKELS3. 8° PÜKES4236, 15: FOKELFO. 8 
ee 2,4: FÜRE43EH1.2 

3 ! 'E49573, 19: FÜHR43SEL.S 
u En N IFU 


BESNSTESESESTE 


NRG=S4ÖRGSFÜRBSETHENSYS4333E:FÜKELSS. 1 
+15, 2: FEINT" Binaiplelsielepasielsin" TABL 15 "I AME 


+2 3 FoRI=4TU +iFEERNLEES-TI-45 3818 TI NEST 

415 er are + FEERÜ1E24- TI 4) LITT HEKT:C=A: IFESATHENG= 
deu . 

425 

+ ä D 5 OHTELCE, -A=d 
459 Asf+l: IFAX>SOGTHENIFPEEKLSE: 5,&>1 1 1ANDPEEK« eS6321). SSSTHENASB 

42a GOTold4E 


19. September ’84 Compute nip 


TROPIG TROUBLE 


für den VG-20 ohne Erweiterung 


Ziel des Spieles ist es, Eingeborene einer tropischen Insel zu ret- 
ten, auf welcher vor kurzem ein Vulkan ausgebrochen ist. 

Der Spieler steuert einen Hubschrauber und muß versuchen, auf 
der Insel zu landen. Danach sollte man aufpassen, daß nicht 
mehr als fünf Eingeborene in den Hubschrauber einsteigen, da 
ein überladener Hubschrauber nicht in der Lage wäre, über den 
Düsen-Jet zu fliegen. 

Hat man trotzdem zu viele Eingeborene im Hubschrauber, so 
kann man sie über Bord werfen. 

Fliegt man dann über dem Düsen-Jet, so muß man versuchen, 
die Eingeborenen auf das Flugzeug zu werfen. 

Gesteuert wird mit den Tasten “P”, “L” ‘“;”, und “.’”’ und abge- 
worfen wird mit der Taste Z. Viel Erfolg beim Retten der 
Eingeborenen. 


5 REMBY JOHN BETTELS & RAINER PAHMEYER 784 
18 PÜKES2,23:POKES6 ‚29:POKESS5 ,23:POKE36879,38 
28 FOR1=7464T07679:READA:POKEI,A:NEXTI 
75 DATAES,32,16,8,64,4,32,8 

sß DATA4,41,1,64,8,8,2,08 

SS DATA168,9,82,224,2805,32,1390,73 

39 DATAES,64,18,169,43,5,72,1308 

935 DATRAE4,66,9,16,123,123,34,34 

ıaa DATAD,68,98,8,4,37,195,8 

194 DATA129,66,69,129,129,60,66,129 

185 DATA128,66,4,1,194,36,1493,86 

118 DATA28, 190,255 ,255,255,255,255,255 
115 DATRA2S5,255,255,255,255,255,255,255 
128 DATA63,123,1932,255,3,1,0,15 

125 0ATA126,128,243,228,226 ,252,137,254 
158 DATAB,BO,15,19,34,255,127,0 

135 DATA3,7,255,255,7,255,254,08 


148 DATA8,8,8,28,8,28,28,28 Du Ne, 
145 DATASQ,127,207,1,28,62,115,65 kushRkoppler w / 
158 DATAB,0,0,152,188,254 ,227,193 Retungsboot nehmen konnen, Erna : 


155 DATA1932,224,96,112,48,48,56,24 

168 DATA24,24,16,62,48,112,148,72 

165 DATA22,199,255,255,255,255,255,255 

188 DATA126,1,31,39,71,63,145,127,8,1,3,255,192,128,8,248 

181 DATA128,135,255,252,198,252,255,199,1,8,31,63,237 ,255,127,31 
182 DATAB,8,8,8,8,24,54,193 

153 DATAQ,1,08,3,1,3,1,8 

124 DATAB,8,1,3,15,31,127,255 

20808 POKE36S69,255 

el5S FRINTEIIN EHS5md TROPIC TROUBLE E45" 


2156 FRINTBI '$3=-=-=-=-=-=======2=22: 6" 

2208 PRINT"MEA YOU MUST SA”E THE NATIVES se? WITH YOUR HELICOPTER ! uam 
E2: u 

225 PRINT"RU THE SUBMARINE wa; IS SHOOTING ROCKETS asia TO You." 


238 PRINT"UA THE NATIVES MUST BE PUT IN THE AIRCRAFT. ZURREEM 12" 
E35 PRINT" IEÄrFHHHH HH HH HH HH HH HH HH" 

237 PRINT" X&ERBBRI PRESS RETURN" 

248 IFPEEK(197)<>15THEN248 

245 POKE36863 ,249:POKES6879,110 

2E8 PRINT" RIES ORDER" 

READY. 


18 Compute mib 19. September '84 


8 PRINT"SBI"}:FORI=S1TO191:PRINT"R "7:NEXT:GOTO488 
5 WU=2:R=48:R1=7544:R2=63:R3=126:F=22 

6 POKE8185,46:PFOKE33995,7 

18 POKE36883 „A53:X= 7724:2=8 


11 PRINT": { { "SPC OH SEER MAHRKI U? -33-8-8"; 
12 PRINTSERREMENEI....... IRERBRBE. - - . . . -CBEIDI====@000@00n0nr, 
12 FRINT'IRRRPRRPLILTIM( ; ;7 3" 


20 PRINT" SAVED: 8 DERD: OMHRAMEN INEZBERELTPRBEBA+++++r HH Hr Hr tr HH N" > 
25 PRINT" ++++++HH+OIR OR" 

10808 POKER1,0:FOKER1+8,R3:POKE36377,128:K= (CK -(B2xC INTCCK-7830)/22))))-7689: IFY>KT 
HENY=Y-1 

101 Y=VY-CY+l<K)+cY>1l) 

103 IFY=INT<K)ORUW=1THENIL7O 

104 IFY<S>ETHENPOKES16S+E,169:POKES164 +E,169:POKE81864+Y,89:POKES165+Y,59:E=Y 
185 ee 

186 A=PEEK (137 ):%=K-<A=37ANDC=SBO)H22+(A=13) 22 

187? pe EITHENR=SSER1=7624:R2=126:R3=252:U=U-.17: IFU<-ITHENU=-1 

183 IFA=Z2THENR=48:R1=7544:R2=63:R3=126:U=U+,. 17: IFU>ITHENU=1 

183 #=X+U: IFINTCHI<DZTHEN148 

119 FCKER1+3,@:POKER1,R2:POKE36877 ,8: IFPEEK (7788 +F )< >J1SBTHEN3QDO 

112 PRINT" ZBERDEBM"SPCCFI "ME ":SF=SF-1:IFF=S1THENF=22:G05UB329:PRINT'SDRDDIn dd " 
115 IFPEEK (197) =33ANDM>QORP=-1THENI2I 

117 GOTQ19B 

121 IFF=OTHENG=K:P=-1:B=9 

123 G=@+r22: IFPEEK(G)I<>ISBOTHENP=B:M=M-1:PRINT" AA" SPCC17)MS "I ":GOTO258 
125 POKEQ,S55: IFX+22< >QTHENPOKEQ-22,168 

138 GOTQ1088 

148 FOKEZ,168:POKEZ+1,16® 

141 IFPEEK(CK?<>15SBORPEEK (X+1)<>LEBTHEN158 

142 IFMPSANDK<FSIITHENK=Z 

143 POKEX,R-1:POKEX+1,R:2=%:G60T0118 

1598 IFX>S813SANDK<E14 A THENK=2Z:GOTO2DO8 

151 IFFEEK (X) =S5SORPEEK (X +1) =5STHEN143 

155 A=8:8B=8:POKE36S77 ,8:FOKE36878,15:FORI=233TO123STEP-1 

156 A=sfA+tl: IFA=28THENB=B+1:0ONBGOSUB169,161,162 

157 FOKE36877,1:POKE36375,1+7:NEXTI 

153 POKE36875,9:POKE35377 ,8:RUNSS® 

160 POKESATZ1IHrS,2Z:POKEX+1,393:A=18:RETURN 

161 POKESBTEBI + ,2Z:POKEX ,49:A=17:RETURN 

IE2 FOKETOESS+H ,2:POKE30699+X ,2:POKE39742 +8 ,2:POKE39743+X,2 

163 POKEX-22,42:POKEX-21,41:POKEX +22 ,38:POKEX+23,37:A=8:RETURN 

178 IFWW=ZTHENCC=80833+Y:L=83033+Y:WW=1:N=Y 

174 IFINTCSX3=CCORCC+1=1INTCH)THENFOKEL , 168:G0T0155 

175 POKECC,Si:POKEL,1E8:L=CC:!CC=CcC-22 

178 DD=DD+1: IFOD=-2THENDD=08:60T0179 

5=<(MIK I: N=N-G!CC=CC-G!G=(N>K)EN=SN+G:!CC=SCC+G 


3 
J 


177 

173 IFPEEK (CL) =43THENWWN=2 :POKEL, 169:POKE36874,8 

158 GETO1O4 

E03 O=S114:FOKEX,R-1:FOKEX+1,R 

281 IFA=37THEMISS 

en2 IFPEEK<1373=13THENFORT=8114T08119:POKE39729+T,3:NEXTT:GOTO 198 

285 FORI=8114T0R-1: IFS=BTHENPOKER1 ,R2:POKER1+8,8:FOKE36377,8 

206 FORT=1TOJD:NEHTT 

218 5=S+1l:IFS=2THENPOKER1,9:POKER1+38,R3:POKE36877 ,128:5=9:60T0229 

211 IFXS>S11STHENPOKED,189:FOKE39728+1,4:POKEI,55:D=1:NEXT:FORT=1TO48:NEXTT:POKEI 


168 
M=PMrl:PRINT' UA" SPC“17>M 


1 
1 
1, 
eis 
214 IFM}LBTHENISS 
2:5 GOTO2232 , 
eZ8 FRIMT' SED" SPCCFI "EIS "iF=SF-1: IFF=SITHENF=22:G0SUB320:PRINT' Sep 9  " 
221 59T0211 
250 H=FEEK<(Q) 
ESS IFH=61THENPOKEG-22,169:POKEQ,44:FORT=8T0O30 :NEXT:POKE36877 ,219:POKEQ ‚61 
2698 IFH=490RH=SBTHENY=V+1:POKE36375,289:PRINT" EI@BPPEPPI" :V: "Ill ":POKEQ-22,168 
261 IFH=49ORH=SBTHENFORT=1TOSQ:NEKTT:FOKE3ES75,0:G0T019D 
255 POKEQ-22,169:I1=J+1:PRINT" BIS" SPC (1797 J: IFJI>STHENI1S5S 
2E6 5OTG1OO 
za IFPEER(7785+F)=SSTHENI 18 
s8S IFFEIR "7EEHF)=ELTHENIOO 
319 GOTGITS 
sen IFFERFSPEIZ3)=STORPEEF (7833) =58THEN1SS 
>25 FETURN 
= IFFEEK «(197 )=64 THENS3S®O 
3 FPRINT"33";:FORI=1TO1B1:PRINT"A "7:NEXT 


FOKEFES73,3:FOKE36878,15 
FOKES1SS,1569:POKE36863 ,255:FORI=8T014:POKE7544 ,863:POKE7552 ,8:FORT=8TO7O 
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NEYTT:POKE36877 ,8:READA:POKE3SB22+I,RND(1)%7+1:POKE7392+1,A:POKE79983+1,47 
POKE?304+1,48:POKE7544 ,8:FOKE7SS2,126:FORT=8TO1988:NEXTT:POKE36877,128 
IFPEEK (137) >64THENM438 
NEXTI:FOKE3E577,8 
5 FGKEI3S,0:PRINT"IUIEIEBT MUOHN BETTELS EK 
SER" 
a7 PRINT" EIER CONTROL: FIUBHREKF rUF3 | FTURREZ 3-01 FURMES |EIEI. LILTBRBFITHROW OUT: 


ERAINER PAHMEYER MI [12] 


FOR1=7324T079393:POKE39O7290+1,4:POKE39721+1,4:PFOKEI,SB:FOKEI+1,S3 
POKE39713+1,8:POKEI-1,61:FORT=1TO1A8:NEXTT 


GETAF: IFA$< N" "THENISO 
?” NEXTI 
GETAF: IFAS=""THENASE 


FRINT"33"7:FORI=1TO1B1:PRINT"R 


"7:NEXT:RUNS 


3 DATA148,146,143,144,137,131,160,148,146,1943,14993,15398,198,133,168 


READY. 


FUNKTIONIERT OHNE FRUST: 


KOMFORTABLE SOFTWARE VON DYNAMICS. 


Weil es nicht nur Computer- 
Freaks gibt, bietet Dynamics 
anwender-freundliche Soft- 
ware - komfortabel, menue- 
gesteuert über den Bild- 
schirm. 


Wer also auf seinem 
Commodore C64, dem 
TI99/4A oder den Atari 
400/800- oder XL-Modellen 
nicht lange programmieren 
will oder null Bock auf 
Listings hat, der geht ins 
Fachgeschäft oder Kauf- 
haus. 

Dort gibt es das 
Dynamics „Adres- 
sen-Archiv“; das 
‚Video-“ „Bücher-“ 
und „Schallplatten- 


Dynamics-Software 
gibt es auf 
Computer-Cassette 
oder Diskette. 
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Archiv“ Programme, die 
Ordnung halten - einfach 
und flink. Da gibt es neu den 
‚Vokabel-Trainer“; der 
Lernen zum Vergnügen 
macht. Fragen Sie danach! 


Wer mehr will, sollte sich die 
Dynamics Arbeits-Pro- 
gramme zeigen lassen. Aber 
auch „Word-Proc“ „Tool 
Pack I und II“ „Calculator“ 
oder „Data-Bank“ bleiben 
immer anwender-freundlich. 


Compube mik 


Gut verständliche Bedie- 
nungsanleitungen (keine 
Wälzer!), logischer Aufbau 
und einfache Anwendung 
garantieren, daß computern 
mit Dynamics Spaß macht! 


Also: auf ins Fachgeschäft, 
hin zum Kaufhaus. Weil 
Dynamics Software einfach 
komfortabel ist. 
Ausprobieren! 


D 5° 


COMPUTER-SOFTWARE UND 
COMPUTER-ZUBEHÖR. 


FÜR ATARI 400/800 UND 
600 XL/800 XL, 
TEXAS INSTRUMENTS TI 99/ 4A 
UND COMMODORE C 64. 


Dynamics Marketing GmbH, 
Große Bäckerstraße 11, 
2000 Hamburg 1 
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AR, Rz 


sin(x 


va 


SL 


Dieses Basic-Lade-Programm erzeugt 
nach dem Start durch RUN ein Maschi- 
nenspracheprogramm auf der Diskette 
(oder Kassette nach Änderung der 
Sekundär-Adresse) unter dem Namen 
“gmpg”. 

Auch dieses Programm muß absolut ge- 
laden werden. 

Für den Anwender besteht nun die Mög- 
lichkeit mittels: 

SYS 49152 den Rechner in den Graphik- 
Modus zu schalten 

SYS 49163 den Rechner in den LOW- 
Resolution Modus zurückzuschalten 
SYS 49174,f die Farbe im High- 
Resolution Modus zu setzen, wobei f der 
Farbparameter ist, der wie folgt zu be- 
rechnen ist: 

F= Hintergrundfarbe + 16 x Vorder- 
grundfarbe. 


SYS 49202 die High-Resolution Bitmap 
zu löschen 

SYS 49224, 1,x,y einen Punkt in die Gra- 
phik zu setzen mit x kleiner 320, y klei- 
ner 200 

SYS 49224,0,x,z einen Punkt in der Gra- 
phik zu löschen 

SYS 49360,1,x1,y1,x2,y2 eine Linie von 
P(x1,y1) nach Q(x2,y2) zu ziehen (LINE - 
Befehl). 

SYS 49360,0,x1,y1,x2,y2 eine Linie zu 
löschen 

SYS 49848 eine Hardcopy der Graphik 
auf dem GP - 100 VC zu erstellen 

SYS 50134,A$ ‚8 bzw. 1 eine Graphik von 
Diskette oder Kassette einzuladen 

SYS 50157,A$,8 bzw. 1 die Graphik un- 
ter A$ abspeichern 

SYS 49729,x,z,xl,yl Rasterpunkte in die 
Graphik zu setzen mit x,y als Zentrum, xl 


58 IFPEEKG431SZ>TP1E3ITHENLORD"GMFG" 58,1 


55 FÜKES3Z88, 6: POKES3231.5:PRINTCHRECLHI" TI 


rü 57559132:LIST188:PREINT"TT 
88 PRINT"M 2: 
P 


ST-MRESTELLUNG" PRINT" 3 : 


KB" PRINT" 1 


‘ Fi 
AR DANS 
AR DH 6 
)/x+tsin(1/y 


N) 
)/y 


gibt den horizontalen, yl den vertikalen 
Punkteabstand an 

SYS 50192 den LIST Befehl als State- 
ment zu benutzen 

Als Programmbeispiel ist ein Kurvenplot 
Programm abgedruckt, welches die Gra- 
phikhilfen benutzt. Damit ist es möglich, 
jede beliebige, stetige und unstetige 
Funktion graphisch abzubilden. Die 
Funktion steht in Zeile 100. 

Das Programm erklärt sich nach dem 
Starten mittels des Menüs von selber. 
Sein Vorteil besteht darin, daß jede Kurve 
in einem durchgehenden Kurvenzug ge- 
zeichnet wird, zwischen den einzeln er- 
rechneten Punkten also keine Lücke 
entsteht. 

Wir nehmen an, der LINE BEFEHL sowie 
die Hardcopy Funktion werden jeden 
Programmierer eine große Hilfe sein. 


IRAFISCHE "ARSTELLUNG DER -JHKTION 
: -ARTESISCHE "ARSTELLUNIS" 
IRAFIK LADEN" : INFPUT"M @USWAHL : 


110m"; 


38 IFP=3THENINPUT"N AME":A$:5Y7543174,22:57549152:57550157, A8,8:6G0T0308 


158 DEFFHRIADSLOSCHIEF 


115 FÜRE?ES, 57: POKEYE3. 134: IFP=ZTHEN3SB 
129 PRIHT: INPUT" UNKTIOHS-SNKREMENT = Zum" ;L: 57543282 


139 
149 
1589 
159 
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INPUT" RSPRUNG HÖRITZUNTAL 
IHFUT"M RSPRUNG VERTIKAL 


IHPUT"B-AKTOR H-ACHSE = 1A" 5:RA=1345:RSR% 
IHFUT"ALAKTIR V-ACH5SE = DB" T:UAS1SKT: WEHR 
-1307138 
-38/38 


Siam"; C:F=1sc+l 
Sam"; D:E=106+D 


Compuhe mib 
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2 INFUTTR-ASTER Ür/H3 Tann; 
u 57343132:57543174, 22:57543350.1,F,8,F,201 57543368 
3 FÜRI= FTOBISSTEPR- 57343360, 1, I,E-2, I,E+r2:NEXT 

a FORI=SFTÜBSSTEF-R:57549369, 1, 1,E-2, I, E+2:NEAT 

3 FÜRI=ETOIS3STERW: 57543358, 1, F-1, I, F+1, I: NEAT 
3 FÜRI=ETÜBSTEP-W: 37549368, 1, F-1, I, F+1, I:NERT 

sa RA=8: E=E-CFHRE-FIRPKWD : IFEP13FTHENB=199 

245 IFB<STHENB=B 

258 FORG=1TO313ISTEPL :7=E-CFHRCCO-FI/RDEWD: IFTSHOTHENB=8: GOTO238 
255 IFT3139THENB=193: G0T02368 


278 IFY=ETHENIFE=13F0RBSÖTHENZ3G 


A$: IFA$=""7" THENSYS437 


SS 
u 


255 5Y549368.1,9,B,6, 7: B='r 

238 A=G:NEAT 

356 POKE138,6:WAIT198,255:GETAE: SY543163 

318 INFUT"TI MIARDCOPY <Y/N> NER" SA: IFA$<SH"V" THEH33O 

329 SY543848:OPEN4, 4: PRINT#4, CHR$C1S>; :CMD4:LIST1883: PRINT#4:CLOSE4 

335 INPUT"M #ESPEICHERN ST/N? HB"; A: IFAF="V" THENINPUT"MAME"R$:S7550134, 8, 
5 

2349 GOTISH 


358 FRINT'TINRESBBL-ERTIKAL-"ASSTAB" : INPUT"MBBBI -450/485 ZUR" ;C:A=144:B=2.25 
369 FRINT' ANISEBLKERTIKALE-LAGE" : INPUT"MOBBI -55/158  SFOmamml";F:D=.8327:E=160 
G=193:57549202:573431392:57543174, 22 
FÜRH=-144T01445TEFB:O=INT .SH5QRKR#A-HEH> 3: FÜRK=-OTON : A=INT(.85#CKr+H/ EHE)? 
T=FHRCSORCKAK+HEHIFDDEC-H/BHF : PL=INTC. 986-739: IFTSOORVSL39YTHENNERT :NEAT:COT 


=] 
TED 


RETTEN 
= 
Zi 


au 
DV 


57549224, 1:8,'71:5735423250.0, 5, 71+1,%, 193° NEAT NEXT :GOTO309 


185 ÖFEH1,9.1. "@:5MPG":FRINT#1, CHRFCOJCHREC132) 5: A=0 

115 FÜRI=43152T052258 : RERDG: PRINT#1, CHRFCOD; : A=A+l:NEXT:CLOSEI 
IFAC>15474STHENHFRINT" ACHTUNG FEHLER IN DATAZEILEN” 

DATA 153.59.141,17.289,163. 24,141, 24.2688, 95,159,27,141,17,268 

DATA 159,25. 141., 24, 205.96. 232, 253, 174,32,158,183.168,4,132.254 

DATA 169,0, 132; 253,1 35,1652,4, 145,2 33,208, 248,251, 224,254, 202,265 
IATA 246,3985,163.32:133,.294.169,8, 133,253, 168,162, 32, 145,253, 286 
‚DATA 203. 251,230, 2 S4. 202, 205, 246.396,32, 253: 174, 32,158, 193,134, 158 
DATA 32.253. 174,32, 235,183: 169, 26,133, 250,169, 21,153, 251,139, 41 
DATA 245, 133,294, 133, 252, 169, 8,133, 253, 6,252, 98,258, 6.352,28 

DATA 273, 24,165. 252,101, 254.133. 252, 165, 253, 195,8,133, 253.6, 232 
DATA 35.253,68, 2532:39,295: B,Ese. 39,293,139, 41, 7.24, 161.252 

IATH 133. 252,165, 253,185, 9,13 3,293. 24, 169, 258, 41,245,1681,252.133 
IATA 252.185, 251,101. 253,133,253, 24 ,169,32,181.253, 133, 253, 169, 258 
DATA 41.7.7323, 7,178.189.1.202.45.3,18.205, 250,160,8,166 

DATA 159, 249.5.17.252, 143. 252. 36, 73, 259. 43. 252,145, 292: 36,120 

ImTn 32.253.174, 32,158.183, 134,159, 32, 253, 174, 32,235, 153,134, 157 
DATA 165. 28.133. 259,165, 21, 133.251, 32,253, 174,32, 235.153, 134, 168 
DATA 1655. 29.133.175, 165,21,133.173, 197,251. 248, 23,176, 33,166, 179 
DATA 165,251, 133,173. 134,251, 155. 178, 165: 250. 133, 175,134, 250, 166,167 
DATA 165,155.133.167.134: 168, 76,31, 193, 165, 178, 197,259, 149, 223.163 
DATA 3,133. 156,165. 165, 137,167, 285, 26.166. 167.32,94, 132, 238, 2589 
IATA 263. 2.236.251,165, 179,197, 251, 268, 239, 165,178, 197 , 256. 268, 233 
DATA 76,58,194, 175, 12.238, 165, 56, 165, 167,223, 169,133. 169, 75,96 
DATA 133.58:.223.167,133, 163. 261,1, 240, 287,56, 165, 178, 229, 250,133 
DATA 78, 165,179, 223,251,133,171. 288.168, 163.170. 288.2,220,178.197 
IATH 163:176,368,160,8, 166, 163. 206, 56,135, 229,178, 176.137, 178,176 
IATA 245. 132,178,132.176,134, 163, 134,171, 165,1780,133, 173,165, 167,32 
DATA 34,132, 185.166, 246,5, 195.187, 76, 157,193: 238. 167,1332,178.265 
IATA 236.230. 250,203, 2,230, 251,165; 176.133, 179,24,165, 163, 161,171 


Bo Ka SFR IR 


N dd dd de de ji ei 


= 


SOG 


DÜSEN A Re Er NIT A Le lc 


POS EL OUE UNE EHE OHR EUR AR OCH UL Ann IND NE UNE ONE IE UNE CHE NE UNE 


BE 


cu 
454 DATA 133:165,137,170,.144,9,56,165, 165, 229,178, 133,168, 230,178,198 
415 DATA 179,208, 202.56, 155, 250,233: 1,133: 250, 165, 251. 223,8:153, 251 
420 DATA 76.59.1374, 159.8,166.170, 206.55,135, 223,159, 170,175,5.139 
435 DATA 171.295.3.134,.137,169,176,&39: 165.171, 209. 235.132, 178,132:178 
442 DATA 134:1655:134.171,169. 163,133, 179.166, 167,32.94, 192, 258, 259, 208 
455 IATA 2,239, 251:135,178, 205. 241,165, 166, 2458,5,199,167,76,19,134 
455 DATA 2385, 167,155:.179.133, 178. 24,165, 165,181,171:133,165,176.4.1397 
476 DATH 163.144, 9,565.165.165, 223.163. 133,169, 238.173,138, 179, 208, 2689 
435 DATA 133.167,185,167,32,34, 132,88, 96, 224,20, 208,1,96: 76,139 
435 IATA 227,32,233,174,32,235 133,134.167:1655:29,133,1659.125.21,133 
So5 DATA 169,32,253.174,32,199.183,134,176.32,2393.174,32.153.183,134 
sia DATA 177,.1653,1.133.1599,.56, 165, 157,229, 177,144,5, 133.167, 76.1601 
528 DATA 134.55,155, 18593, 223, 176.144, 11,153, 165, 165, 169, 232,0, 133, 169 
53A DATA 76:113,134.168, 169, 202. 241,165,167, 133, 178,159. 165, 123,259. 165 
545 DATA 1E3,13 51,155.178,32,34, 132,165. 254,161,176: 133.250. 1e5. 251 
555 DATA 155.8 51.248.237 . 165. 259, 261,654, 144, 231.24. 165,178.191 
SE IATA 177: 13 2u1:209,144,212,96,163.4.133,1565.163, 125,133. 124 
Ss’a DATA 163.6 "54,133: 176: 1332.178,133.1793,132,1583:133.199.32,192 
5239 IATR 255.18 32.291.255, 163.8,32,218. 259.153, 32,133, 251.133 
534 UATH 177,16 133.173:1693, 25, 133,153. 165. 159, 281, 28, 2605,11, 163 
58 DATA 6.133, 63,135,133,173, 76,2,195.2681,12, 2940. 241. 261,4 
516 IATA 245,237, ‚123,133. 2, 1639.,64,133,167,169,1:133,1653,169,8 
8268 DATA 133,171:183.153,1,133.158.152,7,228.178, 268,13. 24.165, 259 
558 IHTA 185, 595,133,. 258,155, 251,185, 1,139, 251, 177,258, EEE nn, 
843 DATA an ns 133.171.165, nen: 125, 268,2:163,1,13 
Eat DATA El, „En 3.2.2349, 251.202, 209. 207,165,171,9,123,32,2 219 
554 DATA 3, 7,133,250, 165. 251,233,0,133,251,165,2 
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sra DATA 74,202,15.24,1659,258,169,3,132, 259,165, 251,1605,8, 

E58 DATA 189,1 133.2,155.170.240.13,56, 185.250. 233,56: 13: 53 
633 DATA 251: »1.123,251,135. 16 ‚205,133, 138, 158,246, 123 „32 
"od UHATA 216. Eds 16H, 8. 177 »175 > zass 20, 2 155, 1765 Ds 185,63, 13: 33 
713 DATA 258, 185:177,189.1, el: 06.,187,195,24,1 133 
728 DATA = 335 esd, 155. Arc u "7,133.251, 258,177. 3,178 
30 DATA „199, 248,3, 76,233. 194 ,: 

4 N 74,32,212,223, 162,0, 134,253 
De H Er ‚185, 75,215, 239,32,253,174 
red If &13, 255, 234,8,255, 255 

a5) 

739 F 5, 132, 34, 133,35, 177,34, 145, 24. 200, 203 
739 Dr 28. 244,169, 38, 141.28, 167, 169,234, 141,187, 158 
555 25.141,66, 158, 163,195, 141,67, ‚168, ‚152; 54,133 
518 DATA 1,35,1655. 1; :, 165,123, 72, 

ca DATA 170, 104,1 3,123, 154,132. 122, 32,248, 163, 76,121, 6.234, 145,9 
539 DATA 146,5.147,0.145,8,143,9,159 

RERD'T 


Texas 


für den VG-20 + 16K 


TEXAS ist fast ausschließlich ein Textad- 
venture. Außer dem Anfang und ein paar 
Grafikzeichen wurde auf Grafik und Ton 
verzichtet, um soviel als möglich Spiel- 
varlanten aufzunehmen. Aus speicger- 
kritischen Gründen wurde auf REM- 
Zeilen zur Auflockerung ebenfalls 
verzichtet. 


Am Beginn wählt der Spieler ein beliebi- 
ges Olfeld, dessen Wert vom Startkapital 
abgezogen wird. Dann geht es ins eigent- 
liche Spiel. Der Spieler muß versuchen, 
so gut wie möglich zu wirtschaften um 
nach Ende der Spielzeit Texas so weit 
wie möglich unter Kontrolle zu haben. Um 
Profit zu erzielen ist es möglich, OI billig 
zu kaufen und teuer zu verkaufen oder 
Tanker legal und illegal auf die Reise zu 
Schicken. Andererseits lauern auch ge- 
fahren wie z.B.: 


Feuer vernichtet einen Teil Ihrer För- 
deranlagen. Um größeren Schaden zu 
vermeiden, werden sofort 150.000 Dol- 
lar benötigt. 


Am Ende des Spiels wartet der Kom- 
mentar auf den Spieler. Der Kommentar 
wurde aus Platzgründen ebenfalls recht 
kurz gehalten. 
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Variablenübersicht: 

Strings: R 

$: Übernimmt die Wahl des Ölfeldes 
AI$: Ist die von FA zufällig bestimmte 
Firma 

A2$: Fungiert als Platzhalter für zwei 
verschiedene Strings 

A3$: Fungiert wie A2$ für verschiedene 
Strings. 

C$: Dient als generelle INPUT/GET- 
Variable. 

H$: Hilft einen String in einen numeri- 
schen Wert umzusetzen 

K$: INPUT-Variable zur Eingabe eines 
Kontinents 

TI$: Spielzeit 

X$: Enthält eine bestimmte Anzahl an 
Cursor-Steuerzeichen 

Y$: Enthält die Positionen zur Einfärbung 
der Ölfelder 

2$: Siehe X$. 


Dimensionierte Variable: 

G$(x): Zählt die Ölfelder, welche bereits 
belegt sind. 

0$(x): Übernimmt den jeweiligen Be- 
stimmungsort der vier Tanker. 
T$(A): Dient dem  Einfärben 
belegten Ölfelder. 

TA(x): Enthält die Ankunftszeit des 
Tankers am Bestimmungsort. 


Compute mik 


der 


TM(x): Enthält die Transportmenge des 
jeweiligen Tankers. 

Lix}: Überprüft, ob der Tanker legal oder il- 
legal fährt. 


INPUT/GET-Variablen: 

D: Dient generell zur Eingabe numeri- 
scher Werte 

LM: Eingabe der “Lagermenge” 

LR: Eingabe der “Leistungsreduktion” 
LS: Eingabe der “Leistungssteigerung” 
0M: Eingabe der einzulagernden oder zu 
verkaufenden “Olmenge”. 


Zufallsvariable: 

AG: Kaufangebot der Firma in A1$ für 
das Ol des Spielers 

BK: Der ständig steigende und fallende 
Barrelkurs 

FA: Wählt die Firma in A1$ aus. 

G: Bestimmt die auf dem angewählten 
Ölfeld liegende Ölmenge. 

UF: Stellt fest, ob ein sich unterwegs be- 
findender Tanker einen Unfall hat. 

W: Bestimmt den Kaufwert des ange- 
wählten Olfeldes. 

ZK: Ermittelt zusätzlich entstehende 
Kosten. 


Hilfsvariable: 


A: Siehe H$ 
B: Siehe H$ 
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DE: Hilft “WO” einen sich alle 5 “Wo- 
chen” wiederholenden Vorgang einzulei- 
ten. 

E: Hilft beim Einfärben der Ölfelder als 
“POKE-Variable”. 

L Erkennt ob ein falscher Bestimmungsort/ 
Kontinent eingegeben wurde. 

PS: Überprüft wieviele Tanker unterwegs 
sind. 

RR: Gibt eine gewisse Anzahl an Raffi- 
nerien zum Kauf frei. 

T1: Gibt an, welche Olmenge zusätzlich 
raffiniert werden kann. 

T2: Gibt die Lagerkapazität der Raffi- 
nerielager (RL) an. 

TD: Gibt eine gewisse Anzahl an Tankern 
zum Kauf frei. 

TT: Gibt eine gewisse Anzahl an Tanks 
zum Kauf frei. 

Laufvariable: 

F: Enthält die Anzahl der belegten 
Olfelder. 

I: Dient generell als Zeitschleife 

0: Zählt die bereits eingefärbten 
Positionen 

U: Holt zusammen mit MID$ die Positio- 
nen aus Y$ z.B.: MID$(Y$,U,4). 

X: Dient der Abfrage verschiedener 
Bedingungen. 

Y: Enthält die Nummer eines gerade ab- 
gefertigten Tankers. 

Hauptvariable: 

BP: Enthält den Barrelpreis für angekom- 
mene Tanker (veränderlich) 

C: Hintergrund/Rahmenfarbe 36879 (fe- 
ster Wert) 

FL: Ist die augenblickliche Förderleistung 
(veränderlich) 

60: Ist eine verfügbare, nicht eingela- 
gerte Olmenge (veränderlich) 

H: Anzahl der Helikopter (fester Wert) 
J: Anzahl der Jets (fester Wert) 

Ja: Zählt die im Spiel vergangene Zeit in 
Jahren (veränderlich) 

K: Kapital des Spielers (veränderlich) 
LK: Lagerkapazität (veränderlich) 

LO: Lagerölbestand (veränderlich) 

R: Anzahl der Raffinerien (veränderlich) 
RL: Raffinerielager (veränderlich) 

RO: Lager für raffiniertes Ol (veränder- 
lich) 

RZ: Reisezeit der Tanker (veränderlich) 
$1: Tongenerator 1 (36874) fester 
Wert 

$3: Tongenerator 3 (36876) fester 
Wert. 

T: Anzahl der Tanks (veränderlich) 

TA: Anzahl der Tanker (veränderlich) 
V: Versicherung der Tanker (veränder- 
lich) 

WFL: Wöchentliche Förderleistung (fester 
Wert) 
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P 
P 
F 
F 
Pp 
F 
P 


- VO UN PWUND- 


RINT "I" 
OKE36879,118 
RINTTAB(S)" 


KIT I TTE WARTEN" 


ORX=9T029847 :POKEX+5128 ,FEEK (32768+%) :NEXT 


OKE36369,285 

ORI=-5129T05127 

OKEI,® 

NEATI 

FORI1=-5S6532T06457 

REARD D 

IFD=-1THEN19Q8 

FOKEI,D 

NEST 

DATA®O,8,8,0,98,0,9,8 

DATA255 ‚255 ,255 ,255 ,255 ,255 ,255 ,255 
DATA2SS,0,8,08,0,8,8,8 
DATA2S5,255,98,8,0,9,8,8 
DATA128,123,123,123,123,123,123,128 


89 DATA255.123,128,128,123,1238,128,128 


DATA192,192,192,132,132,192,192,192 


s8 DATA255,192,192,192,192,192,192,192 


468 
478 
450 
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DATA255 ,255,192,192,192,192,192,132 
DATA255 ,255,123,128,128,123,123,128 
bATA2SS,255,3,3,3,3,3,3 
DATA3,3,3,3,3,3,3,3 
bATH2S5,3,3,3,1,8,0,8 
DATAB,8,8,128,252,252,135,135 
DATA ,8,8,3,15,124,248,123 
DATA131,123,123,128,128,128,128,128 
DATAB,98,8,123,224,248,191,135 
DATA193,243,62,12,8,8,8,8 
DATA224,128,128,128,128,128,128,123 
DATA2,8,28,8,08,15,61,936 
DATA®,8,9,08,08,128,224,56 
DATA24,12,7,1,8,8,8,8 
DATA ,8,255,255,131,131,131,131 
DATA131,131,131,131,131,131,131,131 
DATA255,131,131,129,1293,128,128,128 
DATA2,8,8,8,128,192,96,36 
DATAIS,96 ,945,95,24,12,6,6 
DATAB8,65,3,3,3,6,6,3 
DATR2SS,6,6,12,12,6,254,255 
DATA255,128,128,128,128,128,128,123 
CATA131,134,134,1498,152,176,224,132 
DATA3,14,24,112,192,8,8,®8 
DATHI28,123,128,128,131,135,183,224 
DATAZ55,194,56,96,96,192,192,123 
DATA131,134,148,152,152,176,176,176 
DATA176,176,152,152,152,152,148,1408 
DATA252,149,148,1499,1498,152,152,152 
DATA 152,152,152,216,112,8,08,8 
DATA132,248,63,15,8,0,8,8 
DATA3,8,9,8,8,0,8,4 
DATA255,9,0,224,56,12,12,6 
bATA31,12,7,8,8,08,8,8 
o[nTA1l28,192,936,56,24,29,24,24 
DATA128,128,1932,96,43,24,19,7 
DATA127,493,48,24,24,12,12,6 
DATA192,192,96,96,96,96,96,96 
DATA132,224,43,23,12,6,6,3 
DATA3,6,12,12,128,1932,8,8 
DATA123,128,128,128,128,131,158,248 
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WO: Zählt die im Spiel vergangene Zeit in 
Wochen (veränderlich) 
Zi: Zustand der 
(veränderlich) 

Z2: Zustand der 
(veränderlich) 

23: Zustand der Bohrmeißel in % 
(veränderlich) 


Pumpen in % 


Quellen in % 


Unterprogramme: 

90-99 Schlußkommentar 

100-139: Olverkauf 
140-150: Wahl der Firmen 

200-299: Öl einlagern 

300-349: Öl raffinieren 

350-354: Raffinerie überlastet 
355-360: Lage für raffiniertes Ol 
überlastet 

380-389: Unterprogramm zur Firmenwahl 
390-399: Zusätzliche Kosten entstehen 
400-430: Öl legal verschiffen 

450-470: Öl illegal verschiffen 
480-489: Tanker angekommen 
490-494: Legaler Tanker gesunken 
495-499: Illegaler Tanker gestoppt 
500-599: Förderleistung regulieren 
560: Zeitschleife 

600-699: Ankauf verschiedener Artike 
700-719: Quellenbrand 

720-739: Pumpen defekt 

740-759: Bohrmeißel gebrochen 
1760-779: Jet abgestürzt 

780: Helikopter abgestürzt 

185-799: Zustand der Pumpen, Quellen 
und Bohrmeißel 

800-899:Bericht 1 

900-949: Bericht 2 

950-959: Geologisches Gutachten 
960-964: Barrelkursbestimmung 
965-969: Kapital zu gering 

970-999: Kontrolle für Woche, Jahr und 
Tanker 

3600-3620: Hauptbild 

4000-4018: Olfelder zeichnen 
4020-4200: Eingabe und Einfärben des 
Ölfeldes 

4500-4600: Variablendefinition 


Ladevorgang: 
Vor dem Laden des Vorprogrammes muß 
POKE44,28:POKE7168,0 eingegeben 


werden. Nach dem Durchlauf des Vorpro- 
grammes meldet der Computer, daß er 
fertig ist. Jetzt steht dem Laden des 
Hauptprogrammes nichts mehr im Wege. 
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438 
598 
518 
5208 
538 
535 
548 
ss 
568 
570 
538 
539 
SIT. 
618 
6298 
E38 
648 
E5o 
668 
678 
Es8 
538 
635 
ao 
?ı8 
7-20 
38 
748 
742 
744 
746 
758 
768 
778 
7s®8 
738 
=1-]5) 
sıo 
828 
8398 
848 
350 
8608 
879 
830 
839 
988 
318 
928 
925 
938 
940 
so 
368 
375 
938 
998 
335 
3933 
1888 
1881 
1802 
1883 
1284 


DATR224,192,80,0,8,0,98,8 
DATA36,493,27,14,0,98,8,8 
DATA192,192,192,192,192,224,96,96 
bATA255,98,9,98,90,8,128,1283 
DATAI53,3, 33 Il 
bATA1I2,6,6,6,6,3,3,3 

DATAY6 ‚48,24 ,24 ,24 ,12,12,12 
bDATA2S5,255,98,8,8,8,128,192 

DATA255 ,255 ,224 ,56,12,6,3,8 
DATA255,1932,128,128,123,128,128,123 
DATAB,8,08,15,9,8,0,8 
DATAO,9,0,24,8,8,9,8 
DATA®,8,9,68,8,9,8,8 
bATAB,8,0,255,255,0,8,8 
DATAB,8,9,45,45,0,8,8 
DATAQ,®,0,182,132,0,8,8 

DATA ,8,237,72,77,8,9,8 
DATAQ,8,91,155,91,8,8,8 
DATAB,251,34,35,34,35,8,8 
CATAQ,162,20,8,208,162,0,8 
DATAB,99,143,242,145,158,8,8 
DATAB,9,255,255,24,24 ,24,24 

DATA24 ,24 ,24,24,24,24,8,8 
DATAQ,B,127,127,96,96,96,124 
DATA124,96,96,96,127,127,0,8 
DATADO,8,65,65,65,34,34 ,23 

DATA28,34 ,34,65,55,65,9,8 
DATAB,8,23,62,93,99,99,127 
DATA127,99,99,99,99,99,98,8 
DATAQ,®,31,63,98,36,96,126 
DATA63,3,3,3,126,124,98,8 
DATA255,126,126,126,255,126,126,255 
DATA?3,127,127,127,127,127,127,73 
DATAO,8,8,1,1,1,3,3 
DATAB,128,128,64,192,64 ,224 ,96 
DATRA2,5,7,5,12,9,18,12 
DATA169,89,2498,89,24,72,48,24 
DATA®,8,56,56,127,255,127,08 
DATA®,8,0,98,255,255,255,08 
bDATAB,®,0,9,254,252,248,08 
DATA2S55,138,135,134,135,138,135,255 
DATA2SS,129,193,129,193,193,193,255 
DATA138,255,128,255,128,255,0,8 
DATA1L,255,1,255,1,255,0,8 
DATAB,7,31,63,63,127,127,127 

DATASS ‚212,242 ,254 ,249 ,255 ,253 ‚253 
DATA134,166,166,134 ,255 ,255 ‚255 ,255 
DATA223,221,221,199,253,253 ,255 ,253 
DATAB,8,8,1,7,217,99,51 

DATA2SS ‚255,255 ,255 ,255 ,255 ,255 ,255 
DATA48,24,1088,132,4,9,142,142 
DATA23,23,283,62,62,62,54,34 
DATA255,98,15,18,127,127,34,31 
DATA2SS,123,248,191,255,254 ‚32,252 
DATA169,28,12,252,252,2,1,8 
DATA3S,129,126,127,253,255,0,1 
DATAB,8,90,255,85,255,192,224 
DATAQ,B,D,224,56,255,16,56 

EATA-1 

FRINT"Q":PRINT"SDER NEUE ZEICHENSATZ " 
PRINT"SIST FERTIG.SIE KOENNEN" 
FRINT*"JETZT DAS HAUPTPRO-* 
PRINT"BBRAMM<TEXAS 6) LADEN." 
PRINT"WYIEL SPASS." 


Compute mib 


25 


FOKE36869 ,295:G60T05 
ONBGOSUB497&,4079,49€80,4081,4032,4033,4084 ,4085,4036 ,4837,4888,48893,48398 
RETURN 
REM C-BY JOERG STUMPF/69366 WOELFERSHEAIM4 1984 
DIMTS(6),6G&(13,,TAi4),TM(4),1L(4),085(4):G6G0T028. 
GOEUB4500 : GOSLIESEA:POKEC „28:POKEL,1S5 
FFEINTZ&$'"@BL ":GOSUESO 
PFEINTZE"BBI ®" :GOSUBSO 
FT INTZE"BEH " :GOSUBSO 
PRINTZE"BEP ":GOSUBS®O 
FFINTIE"ERFAE " :GOSUBSO 
PFINTZE'BBIZABM" : GOSUBSDO 
PRINTZS"BEX DEM" :G05UB58 
PRINTZE"TEXAS":GOSUBSO 
FRINTZE"ZFHJLNE" :G0OSUBS® 
PRINT" IBRPPPPBITS IK.MOM" :GOTOSS 
® POKES3,280:FOR1=1TO188:NEXT:POKES3,8:FOR1=1T0288 :NEXT:RETURN 
55 FORI=1STOBSTEP-.BS:POKEL,1:POKES1,138:NEXTI:POKESI1,8:FORI=1T0O3888:NEXT 
88 GOTOA4899 
78 G02UB59590:G60T05a8 
€5 GOTO3EDD 
3Q FRINT"Jrrrkk KOMMENTAR wrkkr": IFK>SBODOOBOBOTHENI3 


91 PRINT"BBSIE SIND EIN MISERAB- BLER 'OELBARON'.WERDEN MSIE LIEBER STRASSENFE-MS 
ER.* 

s2 60T038 

933 IFK>SOBODOAABOTHENIS 

34 PRINT"MICH WUERDE SIE NICHT MWEINSTELLEN!":GOTOSS 

95 IFK 399989899 THEN37? 

36 PRINT"BNICHT SCHLECHT ABER BB.CARRINGTON SIND SIE BUNTERLEGEN!":GOTOIS 


2090 


DR Bu Der re Bez 


7) 


937 PRINT"BBRAVO!SIE KOENNTEN BJI.R. DAS WASSER BREICHEN!" 

33 PRINTBBBIS BALD..." 

939 GOT0O33 

180 GOSLES7R:GOSUBSISB :POKEC, 178:FRINT" Ir OELVERKÄAUF rkacık" 

181 PRINT"BBARRELKURS: "BF. :PRINT"BSIE BESITZEN"LO" BBARREL LAGEROEL." 


1a2 PRINT"WSIE BESITZEN"GBO:PRINT"EBARREL FOERDEROEL." 

183 FRINT"WS ODER L DRUECKEN!" 

1849 GETCS: IFTFS"L"ÄANDCH<S>"G"THENIDO4 

185 IFC$="L"THENI1S 

1E6 GATOIi3O 

119 THIPUT"EBBIELCHE MENGE OEL";OM 

1il PETURN 

114 PRINT"LEU WENIG LÄGEROEL ! !":605SUBSSBd RETURN 

115 GOSUB118: IFOM>LOTHENGOSUBI114 

116 GOSLBI1AB8 

117 iNPUT"BEINVERSTANDEN" CH 

118 IFCEC>"J"ANDCSSY"N"THENII? 

119 IFC$&=*"J" THENLO=SLO -OM:K=K +0M4+BK :GOTOSS 

128 GOTOSS 

123 FRINT"QIHRE FOERDERLEISTUNG, BBETRAEGT NUR"FL:PRINT"BBÄRREL!!!":GOSUBS6B 
138 GOSUB11® 

131 IFOM>FLTHENI129 

138 GOSUB148 

133 INFUT"EINVERSTANDEN"7C$ 

134 IFC$CY"J"ANDCH<SYI"N"THENLSS 

135 IFC$="J" THENK=K+OMA+BK :69=G8 -0M:GOTOSS 

13€ GOTOSS 

1408 IFBK>3S.2ATHENPRINT"IKEINE FIRMA MOECHTE BIHR OEL KAUFEN. ":GOSUBS60:GOTOS5 
142 FA=INT<RND(1)45> 

143 ONFABOSUEB145,146,1947,143,143:G0T0 150 

145 Al$="LESTSTAROIL* RETURN 

146 AIF="SCOTTISH FETROL":RETURN 

197? Al$S="WENTWORTH TOOL&DI" RETURN 

143 Alt="PARAL":RETURN 

149 Al$="EWINS OIiL":RETURN 

1EO PRINT"W"ALE:PRINT"WMOECHTE IHR OEL KAUFEN" RETURN 

289 GOSUB37B:POKEC ,138:PRINT"A#krr* OEL EINLAGERN Krk": LK=Tr 1980908 

281 PRINT"MWIHRE LAGERKAPAZITAET, ":PRINT"BETRAEGT 2.2. "LK:PRINT"BARREL.“ 
202 PRINT"BES SIND BEFEITS"LO:PRINT"BBARREL OEL EINGELAGERT" 

3223 PRINT"MSHIEVIEL WOLLEN SIE ":PRINT"EINLAGERN" 

284 INPUTLM 

205 IFLM+LOSLKTHENPR INT"WLAGERKAPAZITAET VEBER-MSCHRITTEN. " !GOSUBS68:G0TO288 
206 LO=LO+LM:O=0-LM:GOTOSS 

saa GOSUBIFTA:POKEC ,235:PRINT"Ir#&& RAFFINERIE 8%" 

382 PRINT"TANKS FUER VERARBEI- MTUNGSSFAEHIGES OEL B'RL:PRINT"BBARREL.* 
223 PRINT"NTANKS FUER RAÄFFINER- MIERTES OEL"RO:PRINT"BBARREL." 

384 PRINTSPC (7?) "WPRETURNC“ 

225 GETCHK: IFCHFS >CHRESCI3ITHENIDS 

Sa6 TI=TK2ADMA:PRINT"WSIE KOENNEN ZUSARETZL M"TI*BARREL":PRINT"MVERARBEITEN." 
3987 GOSUB11O 


303 IFOM>TITHENGOSUB3SB:GOTOSO7 Ss12 IFCECY"JHANDCSTY"N"THENZ311 
323 RO=RO+OM:RL=RL-OM 313 IFCE="N* THENSS 

318 IFRO>T2THENGOSUB3SS 314 GOSUEB119: IFOM>ROTHEN34B 
311 INPUT"WOLLEN SIE IHR DEL VERBKAUFEN";C$ 316 GOSUB33B:PRINT"U’RAIS 
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PRINT"EKMOECHTE IHR OEL FUER M"AG"$ PRO BARREL KAU- BFEN." 


INPUT"ENEHMEN SIE DAS ANGE- BOT AN"5CS$ 
IFCE<Y" JPANDCHT > "N" THEN31S 
IFC$&="J" THENK =K +0M+AG :RO=RO -OM:GOTOSS 
ScTOsS 
40 PRINT"IBIE BESITZEN NURM*:PRINTRO "BARREL*":PRINT"BRAFFINERIERTES OEL!!!" 
341 GOSUBS68:G0T0O313 
358 PRINT" ZB) TERERBELPO+ M":GOSUB33O 
351 PRINT"BRAFFINERIE UVEBERLASTETBES ENSTEHEN KOSTEN IN BHOEHE VON"ZK"S." 
352 K=K-ZK:GOSUBS6B :RETURN 
355 PRINT" IN) PERL m" :G0OSUB39D 
356 PRINT"MLAEGER FUER RAFFINER- WIERTES OEL UEBERLASTETBES ENTSTEHEN KOSTEN IN" 
357? PRINT"HOEHE VON"ZK"S.":K=K-2ZK :GOSUBS6B :RETURN 
338 IFBK>3S.2O8THENPRINT"IXEINE FIRMA MOECHTE WIHR OEL KAUFEN. "1G0SUBS68:G0OT085 
381 FA=INTCRND(C1)%5) 
382 ONFAGOSUB145,146,147,148,1493 
383 AG=INT(RND<1)%#5) +69 :RETURN 
338 ZK=INT(RND(1)x20008/19808)x* 1090 +2080988 RETURN 
488 GOSUBS7B:POKEC ‚238:PRINT"r* DEL VERSCHIFFEN ##*": IFY>TATHENY=1 
481 PRINT"ESIE BESITZEN 2.2."TA" MTANKER.":PRINT"RWOLLEN SIE LEGAL 0. BILLEGA 
L OEL* 
402 PRINT"BVERSCHIFFEN ?":PRINT"M. ODER I DRUECKEN!"® 
4093 PS=8:FORX=1T04: IFTACK)>ITHENPS=PS+I 
484 IFY=RANDTACKI>ITHEMY=SYHI 
495 NEXTX: IFPS=TATHEN449 
4a6 GETCS: IFCSCH"L"ANDCST)" I" THENIO3 
4087 IFCz="1"THENASO 
4083 PRINT"Z"PS" TANKER UNTERWEGS.” 
489 L(Y)=8:PRINT"RWOHIN SOLL DER TANKER MFAHREN" :PRINT"RE INGABEFORM: ® 
418 INPUT"RBEST.-ORT--KONTINENT"3OSCY) ,K$S:L=ASCCLEFTSCKS,1))-64 
411 GOSUB439 
412 INPUT"BWELCHE TRANSPORTMENGE MCMAX. 1888988 BARRELI"3TMCYIEV=STMCYIE.A4 
413 IFTM(CY)>IBOBOBTHENPRINT"WSIE KOENNEN DEN TANKERWNICHT VEBERLADEN!":GOSUBS6B: 
soTo412 
414 IFTMCY)>LOTHENGOSUB114:G0T085 
415 PRINT"LBEST.-ORT: "OSCY):PRINT"NIN: "K$ 
416 PRINT"MTRANSPORTMENGE : "TMCY) PRINT "VERSICHERUNG: "VEPRINT"RREISEZEIT:"RZ" WOC 
HEN.” 
417 TACYI=WO+RZ PRINT" BANKUNFTSWOCHE "TACYIEK=K+V:LO=LO-TMCY) 
421 Y=Y+1:G0SUBS68:G0T085 
438 1FL=1THENR2 =5:RETURN 
431 IFL=STHENRZ =4:RETURN 
432 IFL=140RL=19THENRZ =3:RETURN 
448 PRINT"IBIE KOENNEN KEIN OEL WWERSCHIFFEN! ":GOSUBS69:GOTO85 
458 POKEC,8:PRINT"Br ILLEGALES GESCHAEFT#«" 
453 PRINTPS" TANKER UNTERWEGS !":PRINT"RDIE CHANCEN FUER EIN MGELINGEN IHRER" 
454 PRINT"M'AKTION' STEHEN 1:5. BMMIT WELCHEM EMBARGO- LAND WOLLEN SIE DAS 
“ 
455 PRINT"GESCHAEFT MACHEN FKUBA, IRAN" :PRINT"BUDSSR ‚„AFGHANISTAN® 
469 INPUTOSCY) 
461 L=ASC(LEFTFCOSCY),1I)-64: IFLCYLANDL< YSANDL<SPIIANDL<S>ZITHENAEB 
462 RZ=4:K$="X"iLcY)=1:PRINT"III":GOTO412 
489 IFLCX)I=1THENBP=(BK+ID)KTMCK):GOTO487 
434 BP=(BK+2)#TMCK) 
487 FRINT"BANGEKOMMEN.D. OEL WIRDEFUER "BP"S":PRINT"BWERKAUFT. ":K=K+BP:GOSUBSESB:R 
ETURN 
4938 PRINT" WIHR TANKER IST UNTER- EJEGS IN EINEN STURM IBERATEN UND GESUNKEN. * 
431 TA=TA-1:TA{X)=1:L(X)=2:G0SUBS69:GOTO335 
435 PRINT"JIHR ILLEGALES GE- EBCHREFT MIT "OSCX):PRINT"NIST GESCHEITERT.” 
4936 FRINT"MALS STRÄAFE FUER SIE BURDEN 5 MILL. DOLLAR KFESTGELEGT." 
4937 K=K-SOAMADA:LiX)I=2:TACK)=1:G0SUB5E9:GOTOI35 
590 G0SUB378:POKEC ,61:PRINT"\dJ#k* FOERDERLEISTUNG x*%*" 
=02 PRINT"SIHRE FOERDERLEISTUNG, BBETRAEGT Z.2. "FL 
583 PRINT*"BARREL FRO WOCHE." 
504 PRINT"EROLLEN SIE SIE STEI- MBERN ODER REDUZ IEREN?":PRINT"RS ODER R DRUECKE 
N!" 
585 GETC$&: IFCS<C)"S"ANDCSC)"R"THENSOS 
586 IFC£="R"THENS3® 
518 PRINT"WSIE KOENNEN HOECHSTENSM"WFL#*T"BARREL PRO":PRINT"BWOCHE FOERDERN. ” 
511 INPUT"BUM WIEVIEL WOLLEN SIE BSTEIGERN. ";LS 
sız IFFL+LS>WEL#«TTHENGOSUBS25:G0T0514 
S13 FL=FL+LS . 
514 UF=INTIRNDOCIHIKII HI 
515 ONUFGOTOS16,517,518,517,519,517,528,517,521 
516 GOSUB788 
517 GOTO8sS 
518 GOSUB728 
519 GOSUB748 
520 GOSUB768 
«21 GOSUB78B 
s22 G0OT0517 
S25 PRINT"LLEISTUNGSKAPAZITAET ELEBERSCHRITTEN. *:G0SUB399 
s26 PRINT"EES ENTSTEHEN ZUSAETZ- MLICHE KOSTEN IN HOEHE* 
527 PRINT"KWON"ZK"S.":K=K-ZK:GOSUBSEB :RETURN 
538 PRINT"ISIE MUESSEN MIND." :PRINTFL/5"BARREL*:PRINT"BPRO WOCHE FOERDERN. ”" 
531 INPUT"UM WIEVIEL WOLLEN SIE BREDUZ IEREN"JLR 
532 IFFL-LR<FL/STHENGOSUBS48 
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FL=SFL-LR:GOTOSE14 


e- 
540 PRINT"IDELQUELLEN NICHT AUS- BBELASTET.ES ENTSTEHEN KOSTEN IN HOEHEM" :GOSUB 
3930 

S41 PRINT"VON"ZK"$.":K=K-ZK:GOSUBSSB:RETURN 

568 FOR1=1T032892 :NEXT:RETURN 

saw GOSUB3I379:POKEC ‚221:PRINT" ara ANKAUF rrE" 

891 FRINT"ZUR ERWEITERUNG IHRER BANLAGEN STEHEN ZUR MVERFUEGUNG: * 

Ee2 PRINT"N ART. ANZ.” 

€23 PRINT"BI TANKS STE 

a4 PRINT'E TANKER "To 

E25 PRINT"W3 RAFFINERIE "RR 

&iS6 PRINT ROHDEL 7 dd 

607? PRINT"BS5 DOELFELDER* 

€e23 PRINT"WUAS WOLLEN SIE KAUFEN? (NUMMERN) ” 

6083 GETD: IFD< 1IORD>STHENSOSI 

E18 ONDGOTOS20,6398,649,650,668 

628 IFTT=8THEN632 

621 FRINT"WEDER TANK KOSTET 5020008 $." 

622 PRINT"SWIEVIEL VON DEN TANKS WOLLEN SIE KAUFEN?" 

623 INPUTD: IFD>TTTHENGZ23 

824 IFK<D+S9O809THENGOSUB3I6S:GOTOSS 

6825 K=K-0+500088: T=-T+D:TT=TT-D:GOTO8S 

638 IFTO=OTHENSSO 

&51 FRINT"WJEDER TANKER KOSTET BR MILL. $.” 

32 PRINT"BWIEVIEL VON D. TANKERNEROLLEN SIE KAUFEN?" 

633 INPUTD: IFD>TODTHENGS33 

634 I1FDx22800800 >K THENGOSUB36SS :GOTOSS 

&35 K=K-D+2990099: TA=TA+D: TD=TD-D:GOTO8S 

649 IFRR=8THENSSB ’ 

841 INPUT"IDIE RAFFINERIE KOSTET 35 MILL. $. WOLLEN SIE BSIE KAUFEN";C$ 

642 IFCSCY"J"THENGI1S 

8643 IFK<4809B8AB THENGOSUBS6S:GOTOSS 

644 K=K-4088089:R=R+1:RR=8:G0OTOSS 

859 GOSUB3SI:PRINT"J"YAIS 

651 PRINT"HIST BEREIT IHNEN OEL KEUM DERZEITIGEN BAR- MHRELKURS VON "BK 

652 PRINT"MS ZU VERKAUFEN.WIEVIELBWOLLEN SIE NEHMEN“ 

653 INPUTD: IFDxBK >KTHENGOSUBSSS : GOTOSS3 

654 IFLO+D>T#1BBBOBTHENPRINT"M5SOVIEL KOENNEN SIE BNICHT EINLAGERN!":GOT0653 
655 PRINT"WDAS ERWORBENE OEL WIRDEE INGELAGERT!”" 

856 K=K-D#BK:LO=LO+D:GOSUBS6B:GOTOSS 

E69 1FO<SBODDOTHENIBOBOO 

861 PRINT"LBOLANGE AUF IHREM BALTEN BOHRFELD NOCH BOEL GEBOHRT WIRD,GIBT * 
SE2 PRINT"D.REGIERUNG KEIN NEUVUESBBOHRFELD ZUM KAUF FREI" :GOSUBSS8B:GOTO8S 

€38 PRINT"NICHT VOHRNDEN! *" :G0OSUBSEB:GOTOSS 

788 POKEC ,24:PRINT"IRSERIRLZTUM" 

718 PRINT"BFEUER VERNICHTET EINENMTEIL IHRER FOERDERAN- W.AGEN.UM GROESSEREN" 
711 PRINT"BSCHADEN ZU" :GOSUE339:PRINT"MVERHINDERN,WERDEN SO- BFORT"ZKx2"S* 
712 PRINT"MBEBRAUCHT. "K=K-ZKx2:G0SUBS6B :RETURN 

728 POKEC ,38:PRINT"UZ! Hm" 

T21 PRINT"ZEIN TEIL IHRER PUMPEN WIST AUSGEFALLEN." 

723 GOSUBSS9:PRINT"ZU DIESEM ZWECK „WERDENBSOFORT"ZK 

724 PRINT"@S BENOETIGT.":K=K-ZK:GOSUBS6SB :RETURN 

?4@a POKEC,233:PRINT"J3Sm" 

7a: FRINT"EBEI EINER PROBEBOHRUNGNWIST DER BOHRMEISEL GE-BBROCHEN.ZUR BEREIT-" 
742 PRINT"BSTELLUNG EINES NEUEN MBOHRERS WERDEN 800908 WE BENOETIGT." 

743 K=K -30a00:G0OSUBS60:G0TOS17 

768 A23="JET*":PRINT"IICOY ER" 

761 POKEC,IZE2:PRINT"BAUF DEM WEG,IHRE AN- BWEISUNGEN AUSZUFUEHREN" 

762 PRINT"IST IHR GESCHAEFTS- BFUEHRER MIT DEMM* 

7563 PRINTA2$" ABGESTUERZT.":PRINT"EES WERDEN 280008 $ ALSMABFINDUNG FUER" 

764 PRINT"DIE FAMILIE UND 59808983 WFUER EINEN NEUEN" :PRINTA2E" BEREITGE-" 

765 PRINT”STELLT.":K=K-1808000:G605UBS60:60T0517 

788 Ad$="HUBSCHR. ":PRINT" I'M" :GOTOTEI 

785 PRINT" I2! HM" ı A3$="PUMPEN" 

’S6 PRINT"BIHFE "ASS" SIND IN BSCHLECHTEM ZUSTAND. MM SCHAEDEN O0. AUS-* 
78? PRINT"MFALL ZU VERMEIDEN, BWESSEN SOFORT" :G0OSUB33®8 

722 PRINT"W’ZK"$ BE-":PRINT"BREITGESTELLT WERDEN, *":K=K-2K :GOSUBS6B8 :RETURN 
738 PRINT’WIRSEERLIZTUM" :A3FE= "QUELLEN" :GOTO7S5 

735 PRINT" ABER" :AT&="MEISEL":GOTO7SE 

509 GOSUBFITA:POKEC,237:PRINT"Irkrkar BERICHTI #x4KkK":PRINTWO".WOCHE "JA". JAHR." 
881 PRINT"MPOM DELMENGE : "O:PRINT* BARREL" 

sa2 PFINT"ZTZE KAPITAL: "K:PRINT"’ZLEM DOLLAR." 

823 PRINT"RIP-& 'MHEL ICOFTER:"H 

sa4 PRINT"ICV+MEIRMENJET :"J 

805 PRINT" BE/USMTANKER "TA 

835 FRINT"MA)ITE RAFFINERIE:"R 

207 PRINT" m LAGERDEL : "LO 

sa: FRINT"ARSE SIE BESITZEN aTum BOHRFELD * 

309 FORI1=1TOF 

E18 PRINTGSCI)","3 

11 NEXTI 

312 GETCS: IFC$=""THENSIZ 

815 GNnTO3S aa2 GÜSUESSEB:PRINT"BBÄARRELK.:"BK 
308 GOSUEFTA:FOKEC,170:PRINT"Irrrek BERICHT2 #40" 3983 FRINT"BRAFF INERIELAGER: E"RL 
981 FRINT"FOERDERL.: "FL 984 PRINT"ERÄFFINERIERTES OEL: "RO 


Compuhe nip | 19. September 
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988 
983 

Tosea 
938 

ER 

332 

993 

994 

995 

336 

997 

3600 
3601 
3602 
3603 
3694 
3605 
3606 
3697 
3603 
3610 
3611 
3612 
3514 
4808 
4901 
4982 
4983 
4994 
aaas 
4906 
4807 
4808 
4093 
4818 
4911 
4012 
4013 
4914 
4815 
4816 
4817 
4918 
4019 
4020 
4845 
4946 
4947 
4948 
4850 
4851 
4052 
4953 
4954 
4855 


19. September 84 


 FRINT"EPUMPEN 


FRINT"SBUSTAND D.FOERDERAN- MAGEN IN %." 
:"Z1:PRINT"QUELLEN 
IFZ1<C=5SBOTHENGOSUB329 

1F22<=SO THENGOSUB3SES 

IF23<=5SB THENGOSUBS33O 
GETCS:IFCE=""THENSII 

50T085 

GUSUE785:21=21+49:RETURN 
GO5SUB799:22=22+48:RETURN 
G0O5U8795:23=23+4B8:RETURN 


6=INT{RND (1) «109990 ) +509998:0=6 
PRINT"IIR** GEOLOGISCHES #x*#":PRINT"Dr+** 


PRINT"BBESCHRAEZ TE" :PRINT"WDELMENGE : 4" 
PRINTG "BARREL " :G0OSUBS6®8 :RETURN 

BK= INT(RND(1)%5%*19080)/1988+31:RETURN 

PRINT" 22YZ ERBE EE" 


PRINT"SIE BESITZEN NICHT GE-MNUG KAPITAL,UM DIESE 


PRINT"AKTION DURCHZUFUEHREN. " :G0OSUBS69 :RETURN 
IFTI1$)="028008" THEN3® 


GOSUB9Y9D8 

IFWO=S2ZTHENWO=1:JA=JA+1:DD=S 

IFDD >LIOTHEN3SD® 
0D=D0+3:G60SUB385:21=21-5:22=22-7:23=23-18 


LO=LO+FL/18:RL=RL+708089:60=G9+FL/5#2 
ONRGOSUB9I78 ,979:G60T09808 
RL=RL-69888:RO=RO +6988088 :RETURN 

RL=RL - 120000:RO=RO +1289888:RETURN 
T2=R*1598889: IFRO >TZTHENGOSUB3SS 
IFRL>T2ZTHENGOSUB3SO 

RETURN 

PRINT"LFUER BETRIEBSKOSTEN 
PRINT"880808 $ ABGEBUCHT. ":GOSUBS6d:K=K-8390908 
IFO>FLTHENO=O-FL: RETURN 
IFO<FLTHENO=0-0 

PRINT"WIHR OELFELD IST ER- 
22 

IFLWO = 1 THENRETURN 
UF=INTCRND(C1IKSI+1:X=l 
IFTA<X)< > LANDUF =2ANDL (X) =BTHEN498 
IFTACK>C > LANDUF =2ANDL (X) =1THEN495 
K=X+1:3 IFX=TATHENI9S 

FORX=1T04 

IFTACKI=WOTHENTA (X) =1:PRINT"UTANKER IN 
NEXTX :RETURN 


GOSUB378:WO=WO+I:RL=RL +198999:POKEC ‚204 :PRINT "Er Hr 6 * 


PRINTWO".WOCHE "JA". JAHR" 

PRINT"MI OEL VERKAUFEN" 

PRINT"BB OEL EINLAGERN"® 

PRINT"®B OEL RAFFINERIERN" 

PRINT"M4 OEL VERSCHIFFEN" 

PRINT"BB FOERDERMENGE" 

PRINT"BB ANKAUF " 

PRINT"? BERICHTI" 

PRINT"WB BERICHTEN" 

PRINT"ERBRBRBIAKTION ?" 

OPEN1 ,8: INPUT#1,D: IFD< LORD>STHEN3S 12 

CLOSE 1:0NDGOTO 108,209 ,308,4098,509,608,808,308 
IFF=14THENPRINT"BKEIN FELD MEHR UEBRIG.":GOTOIO 
POKEC ‚30:PRINT"\BBBWWELCHES FELD??" 

PRINT "IRPRRRRBI I— \" 


PRINT"IERPRBEBI- —" 

PRINT "IRBERREBI A" 
PRINT"IRRBRBRBI IN 1 91 " 
PRINT "IBBRRRBBI- — — Te_.xX" 
PRINT"ERBRBRRBI B-C—- — — 0" 
PRINT" EBBL.— — IT 1717171 ® 1" 
PRINT"IBRRI” -— — — -— — — —" 
PRINT"ERBBI I DEF -5—4-1—+" 
PRINT"EBBBB I === 17171 18" 
PRINT"BBBBBH 1 — = — — «" 
PRINT'EBBBBH I-I&K- %" 
PRINT'"IRPBRPBPBI «|| IB” 


PRINT"IRRRBBRBBI |} — m" 
PRINT"IRBRRPERBEE | HM" 
FRINT"IRRREBPPEBDI „| _" 
PRINT"IRPRPRPRPPPBI IM 2" 

GOSUB4952 

PRINTK$S"WELCHES OELFELD ® 
INPUTAS 
IFAS<CHR$ (65 )ORA$S>CHRS (77) THENABOOO 
IFF=14THENTI$="9015999" 


FORK=1T012:1FA$=6$(X) THEN4845 :NEXTX 
A=ASC (AS): HS=-STRECAI:B=VALCHS)I-64 
GOT0497®8 

IFF=1THENRETURN 


FORI=1TOF-1 
B=ASC (G$(1))-64:G0SUB 1 1G0SUB4855 :NEXTI 
Us1 


:"Z2:PRINT"MEISEL : 


GUTACHTEN 


M{LOEHNE/GEHAELTER U. 


BSCHOEPFT.KAUFEN SIE 


"23:G0O5SUB568 


EZ = 2 2 


BRAFFINERIE> WERDEN . 


BEIN NEUES. ":G60SUBS68:60 


"O$(X):G0OSUB488 


AKTIONEN AxxK2" 


Achtung Programmierer! 


Haben Sie eigentlich schon 
bedacht, daß Ihre eingesandten 
Programme für ”Compute mit” 

bei uns eine viermal so 
große Abdruckchance haben, 
als bei anderen Verlagen. 
Warum? Weil die ”Compute mit” 
nicht einmal- wie alle. 
anderen Computerzeitschriften - 
sondern viermal im Monat, 
sprich wöchentlich, erscheint. 
Außerdem können Sie 100%ig 
sicher sein, daß Ihr Programm 
von uns nach der Qualität 
beurteilt und natürlich auch 
dementsprechend honoriert wird. 


Compute mi 


29 


4233 
4939 
4938 
4954 
50a 
45081 
3503 
4594 
4506 
4598 


a 
| 


unterlagen. 


30 


PEADY. 


ER ya 
2 


FORO=1TOS 
T$CO)=MIDS(CYS, 
U=U+5 

NEXTO 
FORO=1TC6 
E=VAL<TS(O)> 


0,4) 


POFEE ,65:POKEE +33732,2 


NEXTO 
RETURN 


W=1INT<{RND(C1)#1308080007100)41000+700000 


PRINTX$"WERT D. 


FELDES: 


org 


PRINTRE"WOLLEN SIE ES KAUFEN": INPUTCS$ 
IFCECYH"J"ANDCHS >"N" THEN4972 
IFC$S="N" THENAA0O8 
IFK<WTHENGCSUBSSS :GOT0O4998 


SELF)=säs:F=Fil 


K=K-W:GOSUB1:G0OT04994 


Y£="4126 4127 
Y$5="4192 4193 
Y$s="4194 4195 
vY£="4256 4257 
Y$="4253 4259 
vE="4260 4261 
Y$="42652 4265 
Yt="4264 4265 
VES"42E6 42657 
vY$="4326 4327 
(2="4323 4329 
Y£="4339 4331 
Y£="4334 43935 


4148 
4214 
4216 
42785 
42308 
4282 
4284 
4256 
4238 
4348 
4358 
4352 
4416 


4143 
4215 
4217 
4279 
a281 
4283 
4235 
4257 
42893 
4343 
4351 
4353 
4417 


4178 
4236 
4238 
4398 
4382 
4394 
4396 
43083 
4310 
4378 
4372 
4374 
4438 


G0SUB4055:G60SUB560:G0OTO?O 
36376:51=36874 


C=36379:1L=-36$57 
2 £= " |JMIEIRDSISIeIETeDETSTERI II" : <:5= " 
T=z1:H=1:J=1:K=2500008:FL=-100090:21=85:22=932:23=9 


4:165% 


ginge 


4171":RETURN 
4237" RETURN 
4233" :RETURN 
438 1":RETURN 
4383" :RETURN 
4385" RETURN 
4307" RETURN 
4309" :RETURN 
4311" :RETURN 
4371" RETURN 
4373" RETURN 
4375" RETURN 
4433" :RETURN 


DOLLAR." :GOSUBS68 


TT=5:TD=2:RR=1:TA=s2:R=1:Y=1:F=1:W0=1:JA=1:DD=-5:69=100800:WFL= 180088 


T15="98A8090":FORK=1T04: TACK)=1:LCX)=2:NEXTX 


RETURN 


EIER LBER 


SHirt 


SCHLUSS mit dem unproduktiven Stöbern 
in überall herumliegenden Programmier- 


SCHLUSS MIT FRUST UND ZEITVERLUST! 
Von einigen hunderttausend VC20- und 
C64-Besitzern sind nur wenige bis zu 
Sound und Grafik vorgedrungen. 
DAS SOLL SOFORT ANDERS WERDEN! 

1. Dinkler, Idee-Soft, Am Schneiderhaus 7, 
D-5760 Amsberg 1, Tel.: 02932/32947 


Cs armen 5 & 


C-64 — OBERSEITE 
50 BASIC-Begriffe. Ausgabezeichen für Zeichenfarben, 
F-Tasten, Cursor, INST/DEL und CLR/HOME. POKEs für 
Bildschirm-Rahmen, -hintergrund, -positionen, Zeichen- 
farben, Sound (3 Stimmen, Geräusch, 4 Oktaven). Feh- 
ler. BIN/DEZ-Umrechnung. Uhrzeit. 18 Floppy- und 
Druckerbefehle. Hüllkurve, Welle, Filter, Notenwerte. 
— Steuertastenerläuterung. Sprite-Pokes. 


RÜCKSEITE: Felder, Edier- und Formationskomman- 
dos. Logische und Rechenoperationen. BIN/DEZ/HEX- 
Tabelle. Ungeeignete Variablen. Bildschirm-, ASCII- 
und CHR$-Codes. Scrolling-POKEs. Sound- und Grafik- 
Demoprogramme. Sprite-Data-Tafel. 


vc 20 


Wie C 64 ohne die für diesen geltenden Beson- 
derheiten. Dazu: Farbentabelle für Bildschirmrah- 
men und -grund. Speicherorganisation. 
COMPUmask zeichnet sich aus durch guten Sitz, 
abrieb- und reinigungsmittelfesten Mehrfarben- 
Kunstdruck in HI - RES unter flexiblem, reißfe- 
stem Edelkunststoff in computerdeckenden 


Maßen. 


Erhältlich in allen Fachgeschäften zum Preis von 
ca. DM 30,-. Für Liefernachweis genügt Post- 


karte oder Anruf. 


19. September 


84 


et» 1984 BWV 
TOMORROM 


Sie haben die Aufgabe, mit Ihrem He- 
likopter durch ein unterirdisches Höh- 
lensystem zu fliegen, um in das Com- 
puterzentrum zu gelangen. Die Höhle 
wurde dazu benutzt, radioaktives 
Material zu lagern. 

Durch die starke Strahlung ist ein Defekt 
am Steuerungscomputer aufgetreten. 
Sie haben die Fähigkeit, diesen zu behe- 
ben. 

Sie müssen sich einen Weg durch die 
Höhle bahnen, in dem Sie sich durch das 
verseuchte Material schießen! Es müs- 
sen alle Steine zerstört werden, bevor 


19. September '84 


für den Commodore 64 


rührung des Gesteins oder der wild 
pulsierenden Energie-Laser führt zur so- 
fortigen Zerstörung Ihres Helikopters! 
Seien Sie also vorsichtig! 

Viel Glück! 


Nachdem man das MC*Programm in 
Form des Data-Listings abgetippt und 
gespeichert hat, geht man folgend vor: 


1) RUN 


2) Speicherprogramm eingeben 
3) Diskette einlegen 


3 
= 


Nun wird das MC-Programm direkt auf 
Diskette geladen. Das Data Listing kann 
entfernt werden. 


Die obenstehende Lade- und Speicher- 
anweisung gilt für die Speicherung auf 
Diskette. Zur Speicherung des Program- 
mes auf einer Kassette muß in dem 
Speicherprogramm Zeile 14 geändert 
werden in: 


14 OPEN1,1,1,‘“CAVE MC CODE” 


Das Basic-Programm wird wie immer ab- 


sich die Tür automatisch öffnet. Eine Be- ! 4) RUN getippt und gesaved. 
aa FÜR I= 12255 TO 12245 +44 24, 48, 8 
a RERD %: :FOKEI S=5+A:NEXT 454 35,126, 9 
a DATH 1&1, 151, 153, 265, 60. 62, 50, 34, 62 4a 24, 34, 62 
a DATA 3 Sa, 34, 60, 34, 93,126, 6 475 33,126, 8 
a DATA 33,126, 8, 68, 5, 34, 34 459 ] 2 2, 7 
3 DATA 43, 22, 55, 32, 36,125, 8 436 33,125, 8 
a DATA 25, 9, 8,62, SB, 32, 46 Som u 6, 6 
ra DATA 3 SI 62, 34, 33, 98, 68 Sıo Il,» 15 1 
a DATA 24, 25, 814, 5 4 4 Sea 2 z 9,125,123,125,125 
35 IHATA 24, ©, 68, 36, 35, 9, 8 534 u m 3 6 6, 9,255 
DATA 3,125, 8, 33, Sl, 61, 45 540 3, 43, 45, 166,224,232 = 
a DHTA =, 5 35, 34, 93, 35, 8 Sa 35,163, 8,133,224, 165, 
a LATA 57 », 62, 58, 34, 62 558 DATA Zul, 4 5, 45, 598,169, 68,141, 51, 43 
a DATA Ss. 34, 34,165,126, 2 Stra DATA 14l, 55, 183,125,141, 82, 49,141, 85, 43,169 
IIATA 33, 6, 62, 58, 32, 62 s38 DATA Z31,14l, 5 43,141, 54 43,163, 1,133,225, 35 
a LATA 12, 3 8 24, 24, 58 535 DATA 163, 25.141, 51, 43,141. 55 49, 163, 65,141, 82 
a DATA 35, 8, 58, 34, 54, 34 5 2 2: 153,153, 141, 43,141, 4, 43 
A DATA 33, 45, 45,115, 97, 8 ÄTH 35 5,1665 M 248 
a DATA 3, 8, 56, 34, 34, 28 4 IATR 
» DATA 5 3, 16, 36,126, 8 3 TH & 
a IATH &, 8,255, 11l, 7%, 7? 4a DATH ä zz gi 
LATA 3, 2 1 %,255,255, 246, 224,224,192,125, 8 sa DATA 43,141, Er 43,159, 2,141, 75 49,141, 2, 43 
DATA 255,255, 113.10, 5 Gb 68 Eu DATA 189, 4,141, 74, 43,141, 69, 49,169, 5,141. 75 
IATA 5, 1,211,247 Bu 868 6% 6b 6 6, 08 a IATA 43,141, ©, 43,159, 165,141, 67, 43,141, 76, 43 
A DATH 24, 165, 15, 16, u, 45, 45, 8,102,102,102, 8 25 IATA 153, 32,141, 6%, 4 Yä 43,163, 64,141, 75 
A DATA u, 5, 9,123,123,192,132, 224, 226, 246,255 34 IATA 43,141, 85 &4, 43,141, 73, 43 
DATA u, 1, 5.3 7,139 223,255,259,255, 259 255 Sa DATA 169, 313 9,173, 8,229,133 
DATA 255,299, 295, 259, 132,224, 224,132,123,192,192,125 ıa DATA 250, 41, 78,216, 53,174, 1 
3 DHTA 3a 8 7, 2» 1Lı 3 3,128, 64 32, 16 za DATA 20, 202, 142 s9,165,258, 41, 2 
3 DATH ET Far 1, 2 4 8 165, 32, 64,125 vaa DATA Zul, 5,249, 9,174, 1,208,232 
IATA 4, 35, #5,153,153, 665, 36, 24, 24, 69,125,2531 748 DATA 1,203,169, 250, 2,244, 3 76, 
si DATA 1.125 8, 4 5 8b 5 bb 6 15, 55,126 75a DATA 51,174, 59,205, 3,24, uldd, & 
3 DATA 125,1: 2% 6» 8 8, %128,192,224 reu DATn 7e. 32, 51,173. 1,201, 1.79. 6 
36 IATA 245,192 u, 8 L, L, 3,15% 7, 53 68 77a DATA 142, DES, 75, 3% s1, 173, 18,208, 75, 1,141 


I DEREN 


51.174,28, 
6, 
41 


Zaes ia m eas, 95, D 165,23 
rn, 2, 3 2 


2,2224, 0,240, 1, 98,173, 16,208 
2.240. 3, 76,193, 52,169,255,141 
16,258, 73, 2.141, 16,268, 35,169 
4,133,230, 141, 


: Fr 


36.173, 
5 


1,268,232.14%, 


h) 


25,173, 16.205. 
a.14l, 8,208, 965,175, 
=,169, M.ldl, 8.205, 

3,134,228, 95,163, 
259, 41, 4,201, 8,24 
7,202,224,152,144, 
E3,152, 141, 243, 7, 
nl, 8,240, 3, 3, 
154.178, 8,142,243, 
7, 968,173, 8,229 
»173, 16,208, 41, 1 
314 16,245,173, 8,203 

3,208, = 
2,205.141, 
13,173,245, 7,201,152,248, 3 

33 » 35,201,153,249, 53 
» 95,261,154,240, 5 
35,169, 8,133,23%4 

12] 
5 


74, i E 3 3,208, 74 
74, 74,17%0,20%,: . 202,134, 253, 36, 

3, 24,163, 8. : 53 4,133, 251, 1685,25 

A 141,252. 133 259,162, 8, 24, een a3 

25 3 ‚224, 40,205,242, 76, 

8. 0 5 3, 158, 

‚ 76» 72, 53,169, 32,145,259,169 

» 75,220, 53, 2,281, 40,240, 

41.248, 3, 76, 8, 53, 96,201 

9, 33, 


rd [' 
nesnsahnorn 


’ 


N 717 


a4, 17, 17,157 


9 17, 17, 157, 157.157, 73. 76, 17, 
‚157, 68, 69, 85. 34, 72, 32, 35 


PL) ‚158, 8, 24, 32,248.255,162, 


183.112 
141, ; ‚188,249,232,13 »243,224, 97,248, 
35,234,234, 159, 2.141, 32,203,169, 32,162, 


4.133, 236 n 2.298.141, 
32,174, 2,283 


293, 6,157. 32 9 157, 72,_ 7,166, 255,162, 
142, 327,20 3 
32,208, 


2,205,141, 3,288, 98,261, 3 
52.174, 2,288,232,142, 2,208 
35,173, 16,285, 41, 2,261, 2 SE : SEE 24 
52.153, 2,132,250, 141, 2,283 464 DATR ‚ 4,154,234,234,162, 10,188, 

2,141, 15,208 2 ‚185, 2,201, 1,246, 
50, 32, 52, 56 
51, 32, 18, 52 
52, 32, 5, 53 


208. 2 Sn 2 
ve aa, 54,234,234, 166,239, 232,224 ” THEH PRINT"FEHLER IN DATAS I" 


- Ede" 
oe 
ÜLESSCHRECHE:! 


S&lPEEKLDS, 


EERlT, 


REM 3 a ak ak aka 

REM * LEVELEINSTELLUNG * 

REM * SIEHE 19000 ... x* 

REM 3% 36 a ak ale ale ak ak ale ak aka K 

POKE13305,19 

FOKE 12886 ‚250: POKE13524,108 

POKES3280 ‚@:POKES3231 ,0:POKES3272,28 

PRINT "IE" 
PRINT" BBAKALERZEIIZLILLLLLLLSLLLLLLLLN 
PRINT"SSILLLLELLLLLICCELLLLLELLLLLLLLE® 


PRINT"& x * MD < rk ge" 
PRINT"& x ED C Kxxx Fr 
PRINT"& r* 8) C Dre g'" 
PRINT" &Ix kr +ED) + Ber rer" 


PRINT"&IIK KK tERHr ee BUZZ" 
FRINT"&I# KK k Mrrrtrtt DC MtrtrtrttitittE" 


PRINT" &Ir x %* a m <« tr 
PRINT"#+r« Qrx Ei) Ä I 
FRINT"YArHee* Jr +E1) (Br+ a 
PRINT"AAITTEIRrEHENITGH SILBER " 


PRINT" ItE° SIILLIED CSTEHer et Drei" 
FRINT'"& Mi Dr* ED ze: Eu De" 


PRINT"& Mi Orr BD C De rg" 
PRINT*”"& BIC Ir x) <Qrx Bere" 
PRINT"& KB ud nt a 2X 2 22: 22 5 Zr rar rn: 


PRINT" SSH SCTAAI TIER IE IE" 


Compups ip 19. September 


2.268,232,232, 133 


43, 53,234 
8,177,259 


4.141, 2,208 
G, 0,255.259 


57, 17, 17,157 
sr au, 5, 65, 3 6, 75, 84 
is ısr 157,157,157,157, 31, 67 
157, 157,157,157,157,157,15%8, 84, 32 


:»210,259,232,224, 88,203,245, 96 


137.248, era 32, 7.157, 72, 7,162, 2.157 


©, 208, 245,169, @,141 
5, 5,173, 6,203,261 
:251,192,176, 1, 36 
‚152, 8,142, 33,208 

8,141, 33,298, 1693 


K,14l. 31.203.173: 31,205 
3. 76,176, 52,169, 2,133 


53 


55 


68 
82 


PRINT" &UIK Kr 7777) 6.77] 


PRINT"&XIKrKK tt? DD < Dr’ & ' 
PRINT" *%* E> { Brrg'& .n 
PRINT"AR3# x %* x < Deri'& un 
PRINT" Ar rk een) DEYIHreHeE" 


PRINT"#HHe+HS7 AAN ee BILL LEN" 
PRINT"3"SPC(255):PRINTSPC (963:5Y513774 
FORX=9723T0X% +254 :READGQ:FOKEX ,„QO:NEXT 
DATA 255,254,0,1,8,8,3,128,8 

DATA 7,1932,9,12,224,1,24,248,1 

DATA 48,248,1,96,255,255,84,255,253 
DATA 127,255,225,63,255,1,31,2498,08 
DATA 15,224,8,7,132,09,11,160,8 

DATA 144,16,8,127,255,9,8,9,9 

DATA 8,92,9,0,92,02,2,0,09,8 

DATA 15,255,224,0,16,08,9,56,8 

DATA 98,124,90,08,133,98,1,131,8 

DATA 3,1,128,6,8,192,49,9,64 

DATA 7,255,132,3,255,128,1,255,08 
DATA 98,254,9,0,124,2,9,186,8 

DATA 1,1,8,1,1,8,9,8,8 

DATA 8,2,9,8,92,0,9,9,9,0 

DATA 9,127,255,0,08,123,0,1,192 

DATA 9,3,224,128,7,43,128,15,24 

DATA 128,31,12,255,255,6,191,255,2 
DATA 135,255,254,123,255,252,8,15,248 
DATA 98,7,240,4,3,224,9,5,293 

DATA 8,8,3,9,255,259,8,9,8 

DATA 8,0,08,0,0,04,0,0,0,8 


DATAQ,9,0,9,98,0,24,9,9,09,0,08,0,0,4,09,8,08,0,44 
DATA®,92,91,9,9,494,08,9,82,8,8,8,8,8,0,0,0,0,08, 


DATAA,B,a,O 


POKE224 ‚,@:POKE225,8:POKE226,8:POKE227,8:POKE228,0:POKE239,8:POKE223,8 
POKE249,98:POKE2,0:V=-53248:FOKE2049,153:POKEV+39,5 


FOKEV ,238:POKEV+1,72 


POKE2941,155:POKEV+2,Q:FOKEV+3,9:POKEV+49,1:POKEV+21,3 


TI$="999998":SC=B 


1893 SY=134S2 
1G@1 POKES3231,2:FOKES3238,6:FOKEV+Z1,O 
1802 IFFEEK(Z2)=1THENGSOTO195® 


1925 PRINT" a ersieiniegegrgeie] SORRY YOU ARE DEND 
1818 PRINT" ein TOMORROW SOFT" 

1912 PRINT" HOPE YOU" 

1814 FRINT’aBI TO MEET AGAIN !" 

1843 FOKEV+S1,8:END 

1958 FRINT" upzpeisgelnfegrtsiie] MISSION COMPLETED 
1860 FRINT"mIS TIME "TI$ 

1822 FRINT" MEI PLEARSE TRY" 

1838 PRINT" A HIGHTER LEVEL !" 


11982 FOKEV+31,8:END 
18888 REM * LEYEL AENDERN %* 


18081 REM x 

180a2 REM * POKE 139905,<(19) 
10883 REM * PAUSENDAUER 

18a84 REM %* 

168895 REM x FOKE 12396,1250) 
188ua6 REM * LASER TAKT 

12497 REM * FOKE 13524,(34) 
109802 REM * SINKEN DES 

1aca3 REM * HELICOPTERS 

1a8B1A KEM x 

18811 REM * JE KLEINER DIE WERTE 
18812 REM &* DESTO GROESSER DIE 
10815 REM * GESCHWINDIGKEIT 
18814 REM x 

189815 REM * 13834 TOMORROW SOFT 


19. September '84 Compute rip 
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INTERPOD m test 


Ein Interface von 0CS als Schlüssel zu vielen neuen Möglichkeiten 


Eines derjenigen Probleme, die leidenschaftlichen Commodore-Usern am stärksten zu schaffen 
machen, ist der Umstand, daß weder VC-20 noch C-64 einen IEEE-Bus besitzen. Gerade angesichts 
der Leistungsfähigkeit des 64ers ist es schade, daß man immer wieder nur auf die vom Hersteller für 
die Heimcomputer-Modelle angebotenen Peripherien verwiesen wird, mag es sich um eine Floppy 


oder für jede ernsthafte Arbeit nötigen Drucker handeln. 


Die Rettung scheint für Insi- 
der mit dem seit geraumer 
Zeit in England erhältlichen 
und ziemlich erfolgreichen 
INTERPOD-Interface zu nahen, 
das von Oxford-Computer- 
Systems angeboten wird. 
Vielseitig, wie Interpod zu 
sein scheint, war es nätürlich 
auch für Ihre “Compute mit” 
einen Test wert... 
INTERPOD-- diese acht Buch- 
Staben stehen für ein kleines 
weißes Kästchen, das trotz 
der geringen Maße (148 x 96 
x 24mm) über ein beacht- 
liches Innenleben verfügt. 
Man steckt es ganz einfach 
an die serielle Schnittstelle 
des jeweiligen Rechners, wo- 
ran normalerweise Disketten- 
laufwerk oder Drucker an- 
geschlossen werden. 
INTERPOD selbst besitzt zu- 
nächst einmal zwei für IN- 
und OUTPUT getrennte 
Schnittstellen, eine dritte, 
ähnlich konzipierte, dient der 
Stromversorgung. 

Diese niedliche Sammlung 
von Anschlüssen wird durch 
einen IEEE-Bus (Commodore- 
Version/ nicht zu verwechseln 
mit dem bekannten 488er) 
und eine RS-232-C komplet- 
tiert. 

Letztere Schnittstelle ist be- 
sonders leicht zu bedienen, 
zumal sie, wie wir feststellen, 
den über sie angesprochenen 
Peripherien die Adresse 4 zu- 
weist. Dadurch wird die Be- 
dienung des jeweiligen Ge- 
rätes genauso unkompliziert 
wie die Ansteuerung des 
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Druckers unter normalen 
Voraussetzungen (d.h. bei 
Direktanschluß). Was uns 
darüber hinaus sehr gut ge- 
fiel, ist der Umstand, daß man 
die Baudrate den persön- 
lichen Gegebenheiten anpas- 
sen kann: von kläglichen 50 
Baud (im Verlag haben wir ei- 
nige Leute, die soger schnel- 
ler sprechen) bis hin zur 
schon respektableren Rate 
von 7200 Baud. 

Doch dies ist nicht das ein- 
zige, was sich individuell an- 
passen läßt. Nahezu alles, 
einschließlich Parität, Stop- 
bits und Länge des Datensat- 
zes ist durchaus bereit, sich 
eine persönliche Note verpas- 
sen zu lassen. Selbstver- 
ständlich dürfen Sie aber 
auch die Standardraten wäh- 
len und mit 1200 Baud, 8Bit 
Wortlänge und einem Stopbit 
arbeiten (paritätslos). 

Was den vorgenannten 
Commodore-IEEE-Bus betrifft, 
so dürfte allerdings auch er 
nicht uninteressant sein: 
denken Sie nur an die vielen 
schönen Commodore-Floppies, 
die nur darauf warten, über 
IEEE angesprochen zu wer- 
den. Selbst ein Full-Profes- 
sionel-Laufwerk wie die CBM 
8050 wäre als Partnerin des 
VC-20 oder C-64 denkbar 
(wenngleich schon ein wenig 
Snobismus dazu gehört, 
wenn ich an die Preisrela- 
tion denke). 

INTERPOD, das uns ausneh- 
mend gut gefiel (trotz des 
nicht unerheblichen Inve- 


stitionsvolumens von im- 
merhin knapp 600 Mark), lei- 
stet aber noch mehr: wenn Sie 
eine Peripherie ansteuern, die 
nicht verfügbar ist, so heißt es 
nicht kurz und bündig “Device 
not present” -das schlaue In- 
terface sucht vielmehr erst 
einmal nach geeignetem Er- 
satz. Erst nach erfolgloser 
Suche (wenn z.B. nicht nur die 
eigentlich gewünschte Floppy, 
sondern auch das als Ersatz- 
adresse denkbare Kasset- 
tengerät fehlt) gibt's einen 
freundlichen Hinweis, der Sie 
ersucht, doch wenigstens ein 
einziges Gerät bereit zu 
stellen. 


FAZIT: 

Das recht teuere, dafür aber 
ganz schön pfiffige Gerät be- 
deutet eine mehr als brauch- 
bare Erweiterung Ihrer Commo- 
dore-Ausrüstung. Anwen- 
dungsprobleme gibt es kaum, 


C 64* von 


@eingebautes Interface für 
seriellen Port 

®@ Adresse 4 oder 5 einstellbar 

@ Schreibmaschine mit Korrek- 
turspeicher 

@ ON-OFF-Line Taste trennt 
Betriebsarten 

® Zeichenabstand (10, 12 und 
15 Z/Zoll) und Zeilenabstand 
(1, 1 1/2 und 2 zeilig) 
vom Rechner einstellbar 

@ ohne Tastatur als compact 

[6] 


Compuhe mik 


Der ideale Schönschreibdrucker für Ihren 
OLYMPIA electronic compact 2 


* auch für andere Rechner mit Centronics, V.24 und IEC-Bus. 
Alle OLYMPIA-Drucker (ESW 102, 103 u. 3000) für den C 64 lieferbar 


Telemannstraße 18 
"Datentechnik 7250 Leonberg (Höfingen) 
® 07152/6305 


da sich die eingebaute CPU 
(INTERPOD verfügt über ei- 
genen 6502-Prozessor) um 
praktisch alles kümmert. Da- 
durch ist es auch nicht tra- 
gisch, daß die beigepackte In- 
formation ausgesprochen wort- 
karg ist. 

Gerade für Leute, die ihren 
Commodore-Rechner nicht 
nur privat, sondern auch als 
Personal Computer im Büro 
einsetzen wollen, bringt das 
gute Stück ein hohes Maß an 
Profi-Kompatibilität. 

Unseres Wissens wird es bis- 
lang nicht in Deutschland ver- 
trieben. Als Kontaktadresse 


muß also die “Heimat- 
zeitschrit"” des Herstellers 
genügen: 


Oxford-Computer-Systems 
Hensington Road 
Woodstock, Oxford, 'X7 1JR 
England 

(sk) 


@ 100 Zeichentypenrad 

@ 14 Zeichen/Sekunde 

@ Leerstellenunterdrückung 

@ sofort lieferbar 

® enorm preiswert 

®@ viele Typenräder, Gewebe- 
Karbon-, Multikarbonbänder 

@ bundesweiter Werkskun- 
dendienst 
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Bei veröffentlichten Listings finden Sie 
des öfteren die folgende Lade-Anwei- 
sung: POKE 44,28: POKE 7168,0: 
NEW. 

Meist hat man damit ja auch Erfolg - in 
Einzelfällen allerdings kann es zu Schwie- 
rigkeiten führen, da geringfügige Be- 
stückungsunterschiede innerhalb der 
verschiedenen Produktionsserien (ein 
und desselben Modells) schon zu Lade- 
fehlern führen können. In einem solchen 
Fall ist es ratsam, das jeweilige Pro- 
grZmm im Speicher zu verlagern 

Sie laden und starten zunächst wie ge- 
wöhnlich, testen sorgfältig alle Data- 
Zeilen und löschen die damit zusam- 
menhängenden GOSUB'’s. Dann fragen 
Sie mit PEEK (45) und PEEK (46) das 
Basic-Ende ab (Werte sollten unbedingt 
notiert werden) und poken wie folgt: 
POKE 43,1:POKE 44,18:NEW - kein 
sichtbares Programm befindet sich mehr 
im Speicher. 

Jetzt geben Sie ein POKE 43,1:POKE 
44,28:POKE 7168,0:RUN. Und nun feh- 
len lediglich noch die Werte von vorhin 
(wir geben sie, da sie von Rechner zu 
Rechner unterschiedlich sein können, 
hier mit X an): POKE 45,X:POKE 
46,X:SAVE “PRG-NAME”. Bitte beach- 
ten: statt “PRG-NAME” muß natürlich 
die Bezeichnung Ihres jeweiligen Pro- 
grammes stehen! 

Danach können die Programme normal 
geLOADed und geSAVEd werden. 


Nachfolgend haben wir für Sie als enga- 
gierten VC-20 User eine- wie wir meinen 
— nützliche Tabelle der wichtigsten 
PEEK’s und POKE’s zusammengestellt. 
Da finden Sie so ziemlich alles, was für 
die Programmierarbeit von Nutzen ist... 


POKE UND PEEK für VC-20 


10: Kassettenoperationen (0O=Load/ 
1=Verify) 
43,44: Anfangsadresse für Basicpro- 
gramm 
45,46: Beginn der Variablen 
41,48: Beginn der Felder 
49,50: Ende der Felder 
55,56: Endadresse des freien Spei- 
chers 
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57,58: Aktuelle Basic-Zeilennummer 
59,60: Zeilennummer, in der das Pro- 
gramm gestoppt wurde 

69,70: Letzter benutzter Variablenname 
144: Nach fehlerfreiem Ladevorgang 
steht 0 

152: Zahl der offenen Files 

153: Eingabegerät (normal 0) 

154: Ausgabegerät (normal 4) 

157: 0=Prg. Modus/128=Direktmodus 
160,162,162: Entspricht  TI:65536 
PEEK(160)+256PEEK(161)+PEEK(162) 
178,179: Beginn des Kassettenbuffers 
183: Nr. des Zeichens im Filename 
184: Momentanes logisches File 

186: Momentanes Gerät (Peripherie) 
197: Mol entan gedrückte Taste 

198: Anzahl der Zeichen im Tastaturpuf- 
fer 

199: 0=RVS on/18=RVS off 

201,202: Eingabecursor (Reihe,Spalte) 
203: Momentan gedrückte Taste 

204: Cursor einschalten (0=Blinkcursor) 
206: Zeichen unter dem Cursor 

211: Spaltenposition des Cursors 

214: Zeilenposition des Cursors 
631-640: Tastaturpuffer: POKE631,19: 
forl=1 to Anzahl der Prints +1 (Max 
10):POKE631+1,13:NEXT:POKE198, 
Anzahl der Prints+ 1:POKEd Eingaben in 
Data Zeilen 

641,642: Beginn Speicher Betriebssy- 
stem 
643,644: Ende Speicher Betriebssystem 
646: Code für momentane Farbe 


Bildverschiebung 


Ein Hilfsprogramm, das den Text nach unten wegrollen läßt, 
den Bildschirm löscht und nach oben kommt. 


10 FORX=39 TO 150: POKE 36881,X:NEXT: PRINT 


”Clear-Taste” 
20 REM NEUER TEXT 


30 FOR X = 150 TO 39 STEP-1:POKE 36881,X:NEXT 


X 


Bei Anleitungen kann diese Routine sehr nützlich sein, denn 
die 1. Seite verschwindet automatisch und es folgt der nächste 


Text ohne Unterbrechung. 
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647: Code für Farbe unter dem Cursor 
649: Größe des Tastaturpuffers (Max.10) 
650: Repeat Funktion (O=normal/ 
64=keine/128=keine Tasten) 

651: Repeat Zähler 

657: Shift(0=frei/128=verriegelt) 

715: List Schutz:POKE775,1 

188: RUN/STOP-TASTE (191 ein/ 194 
aus) 

801,802,818: POKE 801,0:POKE 802,0: 
POKE 818,165:SAVEschutz 

828-1019: Kassettenpuffer 

36864: Horizontale Zentrierung des 
Bildausschnittes 
36865: Vertikale 
Bildausschnittes 
36866: Spaltenzahl 
36867: Anzahl Zeilen am Bildschirm 
36869: Zdichensatz und andere 
Informationen 

36870: Horizontaler Wert des Lightpens 
36871: Vertikaler Wert des Lightpens 
36872: X-Wert Paddles 

36873: Y-Wert Paddles 

237148: Kassettenmotor (251=aus/ 
253=ein) 

37150: POKE37150,2: Setzt RESTORE- 
Taste außer Betrieb 

37151: -Wait 37151,64,64: Wartet bis 
Taste am Kassettenrecorder gedrückt 
wurde: WAIT 37151,64: Wartet bis Ta- 
ste am Tape ausgedrückt wurde 
37879: Geschwindigkeit des Cursors 
(normal 72) 

SYS 64818 oder SYS 64821: Rechner im 
Einschaltzustand. ACHTUNG: RAM wird 


Zentrierung des 


gelöscht 

CHR$(8): Schaltet - Zeichensatzum- 
schaltung über Tastatur aus 

CHR$(9): Schaltet Zeichensatzum- 


schaltung über Tastatur wieder ein. 
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Maschinenunterstütztes 


Scroll in alle Richtungen 


für den Commodore 64 


Das nachfolgende Hilfsprogramm ist ei- | vorgang ablaufen soll, wird bestimmt 18 .O 34068 
gentlich schon eine ganze Programm- | durch die Step-Anweisung in der 26 LDY #1 
sammlung. Bewegungsschleifel 39 LDX #188 
Injeweils 2 Zeilen befinden sich kurze, in | Bedenken Sie, daß bei Anwendung der 4A 5STY 54272 
Basic ansprechbare Schleifen, die es er- | Routine in Programmen die Geschwin- SA STY 54273 
möglichen, den Bildschirm mit hoher Ge- | digkeit durch eingefügte Anweisungen 5A LOA #8 
schwindigkeit in jede Richtung zu | und Abfragen verlangsamt wird. ra STA 54274 
verschieben. Richten Sie sich daher beim Setzen der Ba STA 54275 
Die Basicadressen dafür sind: Verzögerungsschleife nicht nach ge- SA LDY #255 
53265 (Y Richtung) schätzten Werten, sondern nach dem Aus- 164 STX 54277 
53270 (X Richtung) probieren bei Testläufen. 11A STY 542783 
Die Geschwindigkeit, in der der Scroll- 128 IT #15 
BEER 134 LTE #33 
* TASIRTUR-FIFFSFR * 145 STYr 4276 
© EIN PROGRAMM von: * 1598 STK 54296 
: HORST HENKLER x a or JSR end 
ererrere  e 5 EA 
rare rer Herr € 184 C Pr N) 
1A NATA TIERE LER Tel dis 198 BER END 
115 DATA Mal,217, 159,0, 208 LIE #44 
121 DATA Aa, : 17. 16.255, 1a =T# 42773 
1=4 TATRA EAc 12. 1m ‚015, in . m nn 
199 ImTA 212.142.004,212 20 Ce 
15A TATRA 1a. ME sah 
140 DHTA 212 6 245 BEN END 
176 DATA 876,049.234. 152, mau. 142,001 212 250 JMP 59353 
189 DATA RATE. ATE MER. A An. Ann 268 EHD LICH ## 
134 FNRTSATOFLSRERDA:SES+A:PÜIKFIESS4+L. A 27a STR Sg4E7E3 
Ar HEAT 264 TMP 53353 
1a IFSCH73653 STHENFRINT"TF FH ie TH TIEH TATRA FETT ER SEHT 
ZA PÜHF? =FIFÜEFFES. AI STFELESSE 


PRIHT'"AU.K. m 


“n......sso.... 


bh LLLITTEITITIITIITIITIIIITTIITTTITTITTITITEIIITTITT .. 
Oe0nSnnunnuununn nun nn un nn U Un Un ee eessssssssssssssssssseseeee Snonensnessessuere 


..... s........ sesasssssseesee vo.... 


Unsichtbare Zeilen 


Wenn Sie nach ganz einfachen Mitteln suchen, bei Ihrem Commodore 64 und 
VC-20 einen Programmschutz einzubauen, können wir Ihnen die Geister- 
methode, nämlich Unsichtbarkeit empfehlen. 


In jeder Befehlszeile können, sofern es 
sich um weniger als 35 Zeichen handelt, 
diese bei einem späteren Listen zum 
Veschwinden gebracht werden. 

Dies wird erreicht, in dem man 

:REM’”” 

am Ende der Zeile eintippt, die man schüt- 
zen möchte. Dann löscht man die 
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zweiten Anführungsstriche und rückt 
vierzigmal die Tasten SHIFT- und INST/ 
DEL. Danach drückt man vierzigmal die 
DEL Taste. 

Dies bewirkt, daß das reverse T vierzig- 
mal auf den Bildschirm gebracht wird. 
Danach wird die RETURN Taste ge- 
drückt, um die Zeile festzuschreiben. 


Compuhe mi 


Gibt man nun den LIST-Befehl ein, wird 
diese so geschützte Zeile zwar vom Com- 
puter erkannt und angenommen, auf dem 
Bildschirm jedoch nicht sichtbar sein. 
Mit Hilfe dieser Funktion kann man sich 
mit etwas Geschick auf einen eigenen List- 
schutz aufbauen, der von anderen nur 
Schwer geknackt werden kann. 


’ 


19. September 


WR 
DA 


Vergessen Sie alles, was Sie über Video- Panzerschlachten bisher gehört haben. _ 


>> 9 | 


Tankbattle besteht aus = Teilprogram- 
men, die nacheinander einzutippen und 
abzuspeichern sind: 


1) Tankbattle Relay (Definition der Son- 
derzeichen und Spielanleitung) 

2) Tankbattle (Panzerschlacht) 

3) Nightbattle (Panzerschlacht bei 
Nacht) 

4) Robotbattle (Panzerschlacht gegen 
den Computer) 


Zu 1.: 

Tankbattle Relay beginnt, sobald man es 
gestartet hat, mit einem Einleitungsef- 
fekt. Danach werden die Sonderzeichen 
eingegeben. 

Jetzt erscheint auf dem Bildschirm die 
Spielanweisung. 

In ihr wird der Spielablauf sowie die Son- 
derzeichenklärung dem Benutzer klarge- 
macht. Ebenfalls kann man in der An- 
leitung zwischen drei verschiedenen 
Panzerschlachten wählen. Danach wird 
die gewünschte Panzerschlacht ge- 
laden. 


Zu 2.: 


Tankbattle ist ein Spiel für 2 Personen. 
Der grüne Panzer wird mit der Tastatur 
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TANKBATTLE 


Jetzt kommt Tänkbattlel,ı 


(T: asten: A, W. D x gesteuert, def rote mit 
dem Joystick. Nachdem man sich geei- 
nigt hat, wer welchen Panzer fährt, muß 
man den Schwierigkeitsgrad (Level 1- 
12) eingeben. 

Je höher der Schwierigkeitsgrad ist, desto 
weniger werden die Hindernisse und de- 
sto mehr werden die Minen. 

Nun muß jeder Spieler versuchen, den 
gegnerischen Panzer zu zerstören, ohne 
dabei auf die gelben Minen zu steuern. 
Die anderen Hindernisse machen dem 
Panzer nichts aus, er kommt allerdings 
da nicht weiter. 

Wer als erster 10 Punkte gesammelt hat, 
hat gewonnen. 

Am oberen Bildschirmrand werden die je- 
weiligen Punkte eingeblendet, dazwi- 
schen steht “HI:”. Das bedeutet “HIGH”, 
und zeigt den Spielern an, welcher Pan- 
zer in Punkten führt. 

Wenn es unentschieden steht, wird dort 
ein Strich hingedruckt. 

Bei einem Zusammenstoß der Panzer be- 
kommt keiner der Spieler einen Punkt. 
Nachdem es einem Spieler gelungen ist, 
den gegnerischen Panzer zu zerstören, 
oder nach einem Zusammenstoß der bei- 
den Panzer, oder nach einem Auffahren 
auf eine Mine, werden die Panzer in ihre 
Ausgangsstellung gebracht. 

Wenn ein Spieler 10 Punkte erreicht hat, 
ist die Schlacht beendet und der Sieger 
wird in den Bildschirm eingeblendet. 
Aber es muß ja nicht bei einer Panzer- 
schlacht bleiben. 
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LC NL Un r & N re 


m ur . 
Übrigens: Die Schüsse der Panzer haben 
eine begrenzte Schußweite. 


Zu 3.: 

Diese Panzerschlacht funktioniert genau 
wie die erste, nur daß hier die Panzer nur 
sichtbar sind, wenn man den Feuerknopf 
betätigt. 

Hier weiß man also nie ganz genau, wo 
sich der eigene Panzer zur Zeit 
befindet. 


Zu 4.: 

Robotbattle ist eine Panzerschlacht für 
eine Person. Hier muß man also gegen 
den Computer spielen, aber aufgepaßt: 
Der Computer ist so programmiert, daß er 
schnell reagieren und vor allen Dingen 
schnell schießen kann. 

Auch bei diesem Spiel kann man den 
Schwierigkeitsgrad vorher bestimmen. 


Bei allen Spielen kann man, falls ein 
Spieler von Hindernissen oder Minen 
umzingelt ist, die “F1”-Taste drücken. 
Danach wird ein neuer Bildschirmaufbau 
geliefert. 


Wie schon gesagt, ist es am besten, 
wenn die ganzen Spiele hintereinander 
abgespeichert werden, dann gibt es da- 
nach keine Probleme mehr beim Laden. 
Bei dem Programm Tankbattle muß man 
das Listing nur um einige Zeilen verän- 
dern, um auf das Spiel Nightbattle zu 
kommen. 
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Die zu ändernden Zeilen sind: 


[4 


> 


= FOKER1.3 


FRINT"TXE" :F=309729: POKES-3,255 

PRINTRE" 8": FORT=ATOR: Z=INTERNDELI#417+7746 3: FOKEZH+F ,6: POKET 1 CHEXT 
IFI=4 1 THEHBAA 

IFDZ=STHENGLA 

SOTO4E 
2:G0T068 
FÜKER2,32:G0Tn44 

PÜKER1,G1: IFPEEKCRI+TLICZTHENSZ 

FORS3=R1+TITORL+TIK4STERT1: IFSS=RZTHEN OR 
& IFFEEK (333 > 1 THENPOKESS+F ,5:POKES3, SI :POKES3-T1, 32: G03UBERLCNEST 


2 POKES3-T1,32:PÜKER1,32:60T064 


Gi POKER2,6G2: IFFEEKCR2+TZICZTHENGS 


611 FORS4=R2+TEZTOR2+T2#45TEPT2: IFS4=RLTHENI AGS 

KlE IFFEEK(S4 > 1 THENFOKES4+F , 2: POKES4, 32: POKES4-T2 22 505 URSBM NEXT 
613 POKES4-T2,32:PÜKERZ,32:G0T04A 

az IFFEEKCRI+TLSDLTHEHRISRI+TLPOKERI+F ,5:POKER1-T1, 32:50 

12 IFPEEK£R2+TZ3 > LTHENRZ=SR2+TZ:POKER2H+F , 2: PÜOKERZ=T2, 22 


1592 PRINT" HH SNIGHTEATTLER Haag 0 


San? Al=175:M1=. 


Pelslarz 


PRINT"TIMPAHZERSCHLACHT BE. NoRal" 
a PRINT" 00 

a9 Al=195:D1=.3:G0SUR2G1A 
ASUEZALE 
A1=175:D1=,4: LIB2AIM: 
A1=175:D1=.4:50SUB2A1A 
Al=9:11=.2:G0SUR2012 

A1=175:171=.2:G0SUB2519 
A1=195:D1=.4:605UE2010 


OS Al=133:11=,2:50SUEFe1A 


Re 


ee —_—__—, sus iin 
TANKBATTLE 


0 S=36878:POKES+1,8: INPUT"MALEVEL (1-12)";R:A=6R-(RAS) :AI=RES 


2 


IFR<IORR>12THENRUN 


3 P1=8:P2=9:PRINT"IM'SPC(227)"LEVEL"R 
4 FORT=15T08STEP-1:FORG=254T0235STEP-1:POKES, T:POKES-4, G:NEXT :NEXT :POKES-4,@ 
5 PRINT" :F=39729:POKES-9,255 


A$="AAARAAAAARARARARRARAAR“ :PRINT"MAS; :FORT=QTOL7:PRINT"A"SPCC2B)" RA"; :NEXT 
PRINTAS" 4" :FORT=BTOA:Z=INTCRNDC1)%4173+7746 :POKEZ+F ,3:POKEZ, 1: NEXT 
FORT=1TOR3:K=INTCRND(1)#418)+7746: IFPEEKCKIDLTHENPOKEK ‚9: POKEK+F ,7:NEXT:GOTOL 


NEXT 

R1=7923:R2=7942 : POKER1+F ,3:POKER1, 7: POKER2+F ,2:POKER2,6:T1=1:T2=-1:POKES, 15 
IFP1>9ORPZ>ITHEN1608 
S$1=3:52=3:651=7 :62=6 :6N0SUB3989 

IFP1=P2THEN4O 

POKE?714,8: IFP1>P2THENPOKE38434,5:60T049 
IFPZ>PLITHENPOKE38434,2 
D=PEEK(197)::57S673: DI=PEEK (255) : D2=PEEK (254) 
IFD=39THENS 
IFD=9THENT1=-22:61=8:51=2:6070708 
IFD1=152THENTZ=-22:62=8:52=2:60T0718 
IFD=26THENT1=22:61=9:51=2:6070799 
IFDI=143THENTZ=22:62=9: S2=2:G0T0718 
IFD=18THENT1=1:651=7:$1=3:60T0799 
IFD1=28THENT2=1:62=7:52=3:60T0719 
IFD=17THENT1=-1:61=6:51=3:6070708 
IFDI=149THENT2=-1:62=6:52=3:G601T0718 
IFD=41ANDPEEK(RI1+TLYI>LTHENGAY 

IFD2=9ANDPEEK (R2+T2)>1THENGLO 


99 GUTN48 


62 


80 
18 


9 FORS3=RI+TLTORI+TIM4STEPT1:POKER1,61: IFS3=R2THENLA9Q 

1 IFFEEK(CSIII1THENPOKESI+F,5:POKES3, S1:FÜKES3-T1,32:G0SUBSQL : NEXT 
2 POKES3-T1,32:60T069 

FORS4=R2+T2TORZ+T2#4STEPT2:PNKER2,G2: IFS4=R1THENL805 

1 IFPEEK(S4)>1 THENPOKES4+F ‚2: POKES4,, S2 :POKES4-T2, 32: G0SUB891 :NEXT 
POKES4-T2,32:60T048 

IFRI1+T1=R2THEN1918 

1 IFPEEK(RI+T1)=BTHENIB15 
IFPEEK<RI+T1D>LTHENRI1=Ri+T1:POKERI+F,5:POKER1,01:POKER1-TI1, 32:60SUBE98 
IFT1=-22THENd4 

IFTI1=-1THENS6S 

6 IFTL=1THENS2 

7? IFT1=22THEN43 

8 IFRZ+T2=RiTHEN1919 

ı IFPEEK(R2+T2)=0THEN1929 

2 IFPEEK(R2+T2)>1THENR2=R2+T2 :POKER2+F ‚2: POKER2,G2:POKER2-T2, 32:G035UB391 
3 IFT2=-2Z2THENA6 

4 IFT2=-1THENSS 

6 IFT2=1THENS4 

? IFT2=22THENS® 

a POKES-2, 209: POKES-2,9:RETURN 

1 POKES-2, 205: POKES-2,8:RETURN 

28 PÜKES3-T1,22:POKER2,4:60SUB1599 

POKER2, 32: POKER1,32:P1=P1+1:60T017 

POKES4-T2,32:POKER1,4:GNSUB15R® 

PNKER1,32:POKER2,32:P2=P2+1:G0T017 
POKER1,32: POKER2, 32: GOSUB1599: 501017 
POKER1,32:POKER1+T1,4:GOSUB159AR:POKEPL+T1, 32: POKER2, 32:P2=P2+1:50T017 
POKER2,32:POrF ER2+T2, 4: G0S1JB1599 :PCKER2+T2, 32: POKER1, 32:Pi=P1+1:G60T017 
POKE3-1,255: FORT=1STO9SSTEP-. 1:POKES,T : NEXT :POKES-1,9: RETURN 
PRINT" A"SPLC243)" ASSAME OVER"  GOSUB3099 : GNSUBZAH® 

PRINT" TTT — rn" :POKES-9,249 

PRINT" I HA ATANKBATTLER HH" 

PRINT" HHTPANZERSCHLACHTR HH" 

PRINT JUL 10000 

PRINT" LEVEL ""R:PRINT"MBIGRFEN TANK 4: "PL:PRINT"SRED TANK 


Compute mi 


a:"Pp2 


Die Programmbeschreibung und Varia- 
blenliste von Nightbattle sind genauso 
aufgebaut, wie das Programm Tankbattle. 


Variablenliste Tankbattle Relay: 

D = Grundwert für Tongeneratoren und 
Farbe 

TY = Schrittvariable für Ton 

A$ = Zeichenketten für großen Panzer 
und Einleitungseffekt 

6/T = Schleifenvariablen 

X = Datalesevariable 

D$DI = Abfragevariable 

AS(1)-A$(3) = Art der Panzerschlacht, 
die geladen werden soll. 


Variablenliste und Programmbeschrei- 
hung für Tankbattle und Nightbattle: 


$ = Grundwert für Tongeneratoren und 
Farbe 

R = Eingabevariable (Level) 

A = Anzahl der Hindernisse 

A3 = Anzahl der Minen 

PI = Punkte des grünen Panzers 

P2 = Punkte des roten Panzers 

T/& = Schleifenvariablen 

F = Wert, den man zu R1 oder R2 hin- 
zu addieren muß, um die Farbramadresse 
zu erhalten 

A$ = Zeichenkette für Spielfeld, Abfra- 
gevariable für den Panzer, der 
gewonnen hat 

Z = Zufallszahl für Hindernisse in den 
Bildschirm zu poken 

K = Zufallszahl für Minen in den Bild- 
Schirm zu poken 

RI = Position grüner Panzer 

R2 = Position roter Panzer 

TI = Richtung in die der grüne Panzer 
fährt 

T2 = Richtung in die der rote Panzer 
fährt 

SI = Aussehen des Schusses grüner 
Panzer 

$S2 = Aussehen des Schusses roter 
Panzer 

GI = Aussehen des grünen Panzers 

62 = Aussehen des roten Panzers 

D = Tastaturabfrage 

$YS673/D1/D2 = Joystickabfrage 

$3 = Schuß grüner Panzer 

$4 = Schuß roter Panzer 

Al = Wert für Tongenerator 

DI = Ausklingzeit des Tones 


0-3: Abfrage des Levels und setzen 
der Punkte 

4-16: Bildschirmaufbau mit Minen und 
Hindernissen 

17-19: Definition der Variablen und Ab- 
frage ob Spiel zu Ende 

20-22: Setzen des Panzers, der in 
Punkten führt 


19. September ’84 


1614 


RO 


8DI 
2 IE 
3 pi 


5 PR 
6 R“ 
18 A 
14 P 
15 F 
16 N 
17 R 
18 S 
21 F 
22 I 
48 D 
41 
42 1 
44 1 
48 1 
S2 1 
56 I 
99 6 
618 
Sl 
612 
718 
712 
R2TH 
728 
8309 
so 
988 
981 
982 
993 
924 
918 
gl 


1621 
1622 
1623 
1524 
1629 
1635 
2009 
2992 
2023 
zand 
2u05 
2a06 
2097 
2098 


19. September '84 


1616 A$=""ITHE RED TANK" 


2010 
3999 


IFPIZFZTHENAS="KTHE GREEN TANK" Li=sCi+l GOTO1R1? 
c2=02+1 

"MAS-PPINT"MO IS THE" PRINT" WINNER" 
"IaNSPLi2SS)5PC4E)"PRESSAMEBER KEVEEREEFIFTERER KONENEN KORBBIGAME 


FRINT" NEU LEVEL MCJI/NI?" :PCKE198.,9 
GETAS 
3 IFAF=" J" THENFIN 

GHTN3 

PCKE198,M:WAIT198,1:P1=9:P7=9:A=A-5 A3=A3+4 : IFACITHENA=8:R3=69 
SAHTCL 
aa Al=225: 
Al=22 
A1l=225 
Rl=215 
A1l=219° 
A1l=209: 
Al=215 D1=.05'GUSUBZH1A 

FOKES-4 ,8:POKES-3, 9: POKES-2,9:RETURN 

FÜKES-4 , Al :POKES-3, AL: FOKES-2, AL :FORT=15STOASTEP-DL :POKE3,T NEXT :RETURN 
PFINT"SDEBIA TANKM"PI" AHL:- 


IFAt=""THENISZZ 


DI=.7:50=2UB2910 

:D1=.6:G05UB2919 
I1=.97:H0SUE2A19:A1=9:D1=.292:60SUB2919 
Di=.16:GN5UB2919 

D1=.16:G0SUR2019 

D1=.16:G60SUR2019 


ATANKmM"P2:RETURN 


BOTBRATTLE 


MR(11):5=36373:POKES+1,8: INPUT"TILEVEL (1-123";R:A=69- RAS) :A3=RAS 
FFNGCX>=RNDE1I%#X : IFR<LÜRRD2THENRUN 
=9:P2=9:PRINT"M"SPC<227N"LEVEL"R 


4 FORT=1STOBSTEP-1 - FÜRG=254T0235STEP-1:POKES,T:POKES-4,G: NEXT :NEXT:POKES-4,8 


INT"" :F=33729 POKES-9, 255:R(8)=-22:R(1)=22 
EI=-1:Rl37=1 Rl43=3:RCH)=EI:R(6)=6:RIe7:R(B)e2:RCI)=2:RCIOY=3:RC11)=3 
$="ARARARAAAAAAAARARAAAAR" PRINT" MARS; :FORT=8TO17:PRINT"A"SPCC298)"A" ; :NEXT 
RINTAS"" :FORT=BTOR Z=INTCFNG(C4173)+7746:: POKEZ+F ‚4: POKEZ, 1:NEXT:A$="" 
ET PTRBSRSIHTSFHOSR LP ITZOISE AFTER SIADETIESESRERHE TONER IF UT HERTSOTNLT 
x 

1=7923:R2=7242: POKER2+F ‚2:POKER2,6:T2=-1:POKES, 15: IFPI>IORP2>ITHENL699 
2=3:62=6 : GN5UB2369 : IFP1=P2THEN4® 
OKE??14,8: IFPIDPZTHENPOKE38434,5:G0T049 
FPZ>PITHENPCKE38434 ,2 
=PEEK(197):5'7S673: DI=PEEK (255) : D2=PEEK (254) : IFRI=R2THEN1919 
FD2=3ANDPEEK (RZ+T2)>1THENGLO 
FD=33THENS 
FD1=152THENY=9:60T0718 
FD1=143THEN'Y’=1:60T0718 
FD1=23THENY'=3:60T0718 
FUL=149THENY=2:60T0718 
UT0398 
FORS4=R2+T2TORZ+T2#4STEPT2: IFS4=R1THENL995 
IFPEEK(S4)>1THENPOKES4+F ‚2: POKES4, S2: POKES4-T2, 32: G0SUB368 : NEXT 
FOKES4-T2,32:POKER2,62:G0TN42 
T2=RC'Y) :G2=RCY+4) :S2=R(Y+8) : IFPEEKCR2+T2)=8THEN1029 

IFPEEK (RZ+T23>1 THENR2=R2+T2 :POKER2+F ‚, 2:POKER2, G2:POKER2-T2, 32: GOSUB899: IFRi= 
EN1919 
GOTOSFOO 
FOKES-2, 219: PÜKES-2,8:RETURN 
POKES-2, 299: POKES-2,8: RETURN 

IFV2>OTHEN233 

IFR1+T1=R2URR1+T1#2=R2URR1+T1I#3=R2ORR1+T1#4=R2THENISQ 

IFVY2=8THENFE® 
O=FNG(4) 
T1=R(0) :G1=R(0+4):S1=P(0+8) : IFVZ2>OTHENV2=V2-1 
Y=R1+T1: IFFEEKCVI<CD32ZTHENVY2=2:60T049 
IFY=R2+T2#20RV/=R2+T2#30RV=R2+TZ#4 THEN4O 
Ri=Ri+T1:POKER1+F,S5:POKER1,61 FOKER1-T1,32:G60SUB881 :G0T049 
v2=3:FORS3=R1+TLTORI+TIM4STEPTI: IF5S3=R2THEN1988 
IFPEEK(S3)>1 THENPOKESS+F ,5:POKES3, 31: POKES3-T1,22:G0SUB881 NEXT 
POKES3-T1,32:POKER1,01:G0T048 
X=R2-R1:W41=3: IFABSCKY>21THENVI=1 
O=INTCY/1+SGN(X)/2):GOT0294 

POKES3-T1,32:POKER2,4:605UB1599 

POKERZ, 32: POKER1,32:P1=P1+1:GUT017 

POKES4-T2,32: POKER1,4:GOSUB1558 

POKER1,32:POKER2, 32:P2=P2+1:G0T017 

POKER1,32:PÜKER2,32:G0SUB1S99:G60T017 

POIKER2, 32: POKER2+T2,4:GOSUB1569: POKER2+T2, 32: POKER1,32:P1=P1+1:G60T017 
FOKES-1,255: FÜRT=1STOWBSTEP-. 1:POKES,T: NEXT :POKES-1,8: RETURN 
PRINT"B"SPEC249)" ASSAME OVER" :GOSUEIAMR : GNSUB2999 

PRINT" IT ——— Hr" 3: FOKES-9, 248 

PRINT" H--- @RÜBOTBATTLER 4444"; 

PRINT" IMPRNZERSCHLACHT G. C.al"; 

PRINT 

PRINT" LEVEL "R:PRINT"IEROBOT TANK 
IFPI>PZTHENA$="RITHE ROBOT TANK": 
A$=""ITHE FED TANK" :C2=C2+1 
PRINT"MA"AF:PRINT"TTE 15 THE" :PRINT"M WINNER” 
PRINT"BA"SPLLZSSISPC(C4EN"PRESSUHHEEN KEVIERBEBFORMENER EBENEN KBEBBIGAME 


M:"PL:PRINT"MWRED TANK 
C1i=C1+1:60T01617 


a: "p2 


FRINT"HEW LEVEL MCJ/NI?":POKE198,8 

GETAS$: IFAF=""THENL6Z2 

IFAg="J" THENHRUN 

GATO3 

PÜKE193,9:WAIT198,1:P1=9:P2=9:A=A-5:A3=A3+4: IFA<LTHENA=9:A3=68 
GHTO1 
A1l=223: 
A1=223: 
Al=218: 
A1l=202° 
Al=297: 


Di=.2 GOSUBZ2018 

I1=.3:60$11B2912 

D1=.3: GOSUEZU12:A1=215:D1=.2:60SUB2219 

D1=.2:503U62012 

D1i=.2:G0SUE2919 

A1l=291:D1=.2:G115UB2919 

Al=195:D1=.2:605UB201@ 

FÜKES-4,0 POKES-3,8. POKES-2,8: RETURN 

POKES-4,Al FÜKES-3,A1 -POKES-2, Al: FORT=15TOBSTEP-DI "POKES,T:NEXT:RETURN 
PRINT" SRERROBOTM"PL" AHI:- ITANKM"P2:RETURN 


Compuhe mib 


40-99: Hauptroutine: Tastatur- und Joy- 
stickabfrage zur Steuerung der Panzer 
600-602: Unterroutine für den Schuß des 
grünen Panzers 

610-612: Unterroutine für den Schuß 
des roten Panzers 

700-707: Abfrage für grünen Panzer, ob 
Zusammenstoß, ob Auffahren auf eine 
Mine und Bewegung des Panzers, Ver- 
zweigung zu den jeweiligen Steuerungs- 
abfragen 

710-717: Abfrage für den roten Panzer 
800: Geräusch für Bewegung grüner 
Panzer 
801: 
Panzer 
1000-1001: Zerstörung des roten Pan- 
zers, Punkteverteilung 

1005-1006: Zerstörung des grünen Pan- 
zers, Punkteverteilung 

1010: Kollision beider Panzer 

1015: Auffahren des grünen Panzers auf 
eine Mine 

1020: Auffahren des roten Panzers auf 
eine Mine 

1500: Explosionsgeräusch 

1600-1630: Spiel zu Ende, Abfrage ob 
neuer Level 

2000-2010: Schlußmelodie 

3000: Punkte Einblendung mit “HI” in 
den oberen Bildschirm 


Geräusch für Bewegung roter 


Restliche Variablenliste für Robotbattle 
und Programmbeschreibung: 
FNG(I) Zufallszahlen 
Robotpanzer 

0 = Berechnung für die Zusteuerung auf 
den roten Panzer 

V= Position des grünen Panzers + 
Richtung in die er fährt 

VI = Berechnung für Zusteuerung auf 
den roten Panzer 

v2 = V2=0: Direktes Zusteuern auf 
roten Panzer 

V2> : Zufälliges Steuern 

R (0)-R (3) = Richtung in die der grüne 
Panzer fährt 

R (A4)-R (7) = Aussehen des grünen 
Panzers 

R (8)-R (11) = Aussehen des Schusses 
der grünen Panzers 


für den 


6: Definition der Feldvariable für die 
Richtungsangabe des Robotpanzers, so- 
wie das Aussehen des Schusses 
710-720: Steuerung des roten Panzers 
900-920: Steuerung des grünen Panzers, 
Abfrage ob roter Panzer in Schußweite 
950-953: Schuß des Robotpanzers 
960-970: Berechnung für die Zusteue- 
rung auf den roten Panzer 


Ansonsten gilt die Variablenliste und Pro- 
grammbeschreibung von Tankbattle 


39 


Nach dem Starten des Programmes er- 
scheint auf dem Bildschirm das 
Backgammon-Spielfeld. Durch Drücken 
der Taste A kann das ACEYDEUCEY- 
Spielfeld aufgebaut werden. Die Spielre- 
geln von Backgammon dürften all- 
gemein bekannt sein. Dieselben gelten 
für das Spiel ACEYDEUCEY. Der Unter- 
schied der Spiele besteht jedoch darin, 
daß bei ACEYDEUCEY die Spielfiguren 
zunächst von den Startfeldern in das 
Spiel eingesetzt werden müssen, 
während sie bei BACKGAMMON ja 
schon auf dem Feld verteilt sind. 

Der zweite Unterschied besteht darin, 
daß man bei ACEYDEUCEY nach dem 
Würfeln einer 2,1 bzw. 1,2 einen Pasch 
aussuchen kann und danach erneut wür- 
feln darf. Dadurch erhält das Spiel einen 
besonderen Reiz. Die Steuerung erfolgt 
durch zwei Jovsticks. Nach dem Drücken 
des Feuerknopfes von Joystick 2 kann 


das Spiel beginnen. Zuerst muß der linke 
Spieler würfeln. Mit einem Druck auf den 
Feuerknopf seines Joysticks setzt er den 
Zufallszahlengenerator in Bewegung. 
Durch einen zweiten Druck hält er diesen 
an. Seine beiden Würfe werden in der 
linken unteren Ecke dargestellt. 

Nun ist der Spieler rechts an der Reihe, in 
der gleichen Weise. 

Wer die höchste Quersumme gewürfelt 
hat, darf beginnen. 

Dazu erscheint ein Kreuz am Rande des 
Spielfeldes, welches er mittels seines 
Joysticks zu dem Feld bewegen muß, von 
dem aus er setzen will. Dabei wird immer 
die linke Zahl des Wurfes zuerst gesetzt. 
Durch Hoch- bzw. Runterbewegen seines 
Joysticks kann der Spieler die Position 
der Zahlen verändern. 

Durch Druck auf den Feuerknopf wird nun 
automatisch ein Stein von dem Feld um 
die Zahl von Feldern vorgesetzt, die die 


linke Ziffer aufweist. Nach zweimaligem 
Setzen ist der andere Spieler an der 
Reihe. Wird ein Pasch gewürfelt, so wird 
dies durch Blinken der Ziffernanzeige 
kenntlich gemacht und der Spieler kann 
nun viermal einen Stein setzen. 

Sind von einem Spieler 2 oder mehr 
Steine geschmissen, und kann er diese 
nicht einsetzen, weil die in Frage kom- 
menden Felder vom Gegner besetzt sind, 
so übergibt der Computer an den anderen 
Spieler. 

Das Aussuchen des Pasches bei ACEY- 
DEUCEY geschieht durch Rechts- und 
Linksbewegen des Joysticks und einem 
anschließenden Druck auf den Feuer- 
knopf. 

Mogeln ist bei beiden Spielarten unmög- 
lich, da der Computer den Spielablauf 
überwacht. 


RUEDIG ":DIMF(25,19,P(25 


190 AD=1:PCKES3289,1:PCKES3281,1:A$="r COPYRIGHT BY M. 
> 


i11@ PRINT"ERI BAATIKISERIVIBMERENM" :G0OSUB169:G0TO229 


40 Compute en 19. September ’84 


sa 
350 
3239 
aa 
aıa 


42a 
438 
aaa 
459 
asa 
478 
43a 
4938 
sa@ 
518 
sea 
s>@ 
548 
559 
568 
578 
588 
599 
sao 
618 
E28 
6838 
848 
852 
660 
678 
688 
698 
788 
7ı8 
7208 


FRINT"ERI 
FORJ=ETOL:FORA=1TOES:F<CA,JISR:NEXT:NEXT:FS8,0)=15:F625,19=15 
FRINT"'SIERPRKI" :FORI=1T0O7 PRINT" 0":NEST:FRINT" erkEple" 
FORI=1TOT:FRINT"  0O":NEHT:PRINT"M" :GOTOSS59 


FRINT"IM a RBCBREF GHTIJKL ":Wa=2:WIl=2 

FORI=1T03:PRINT" aeı.|ı.1.3 = |. |. 1. a M":NEXT 

PRINT" as a = am" 

FORI1=1T03:PRINT" au. |. 1.13 =. |. 1. 1 3 W":NEXT 

PRINT" A RWVUTS RGPONM ” 

PRINT"N [9 u1%] B22":RETURN 

PRINT" SgeIBI" :FOR1=1TO2:PRINTTAB (7? "Re"TAb<ir2"Qe"THB(C25)"e" TABC33)" Be": NEXT 


PRINTTAB(C1TI "IE" TABC25)"E" TAB<33) "ge" z 
FOR1=1T02:FRINTTAB< 17) "Je" TAB(33) "Ge": NEXT 

PRINT" IRRRTEN" :FORI=1TO2:FRINTTABC1TI "Be" TAE(23) "Je" NEXT 
PRINTTRE<ITI" RE" TABCESI" Er TAB(33) "Je" 
FOR1=1T02:PRINTTAB (7) "IE" TAB<17) "We" TAB(25)"e"TAB(332) "We": NEXT 

FOR 1=1T08:READA,B,C:F(A,B)=C:NEXT:FOR1=9OTOLZ:READA:PCII=SA:P(25-1)=A+890: NEXT 
DATA1,1,2,12,1,5,19,1,5,17,1,3,6,9,5,8,0,3,13,0,5,24,9,2,1106,1111,1113,1115 
DATA1117,1113,1121,1127,1129,1131,1133,1135,1137 

PRINT" ED "As" 

PRINT" "Ar" 
AS=RIGHTE{AS,24) +LEFT$CAS, 1): FORI=1T04:GETES: IFB&="A"THENL2Q 

IFPEEK (56229 )= 127ANDPEEK (56321) =255THENNEXT:GOTO329 

PRINT" D" 

FOKE19793,32:P0OKE 1972 ,32:5P=1:G0SUB518:G0SUB498 :3=YX+ Yin WX=KY: VZ=YX:GOSUBS28: 


GOoSslLIeEA4Sa 


FOR1=1TO1SQ@A:NEXT: IFS=HX+YZTHENSEE 

IFSIHA+YZTHENFRA SUN: YYA=SVATSF=O 

ONSP+1GOSUEF1N ,S2R: IFAD=OTHENP=A+ZESHSF:GOTOSIA 

P=1+23xSP:G0T0538 
POKES4E7E+HW,F:POKES4273+W,FEIFPA=1I THENPA=9:#%=WEE YZ=SWATPOKEW,K%+48: POKEWFL,Y 


7+48:G60T05E9 


IFAC=1THENAC=2:%%=1:GOSUB 1230: YA=K%: PA=1:W4=X7:GCTI5S5Q 
IFAC=2ZTHENAC=8:FOR1=1T048:NEXT:GOTO4EQ 
IFSP=@OTHENSF=1:G0T0462 

SP=®8 
T=98+25%SP:ONSP+1G0SUBS5 19,529: CC5UB438: IFAD=BANDF <T,SP)>BOTHENPF=T:GOTOS3Q 
P=1+234SP:GOT0539 
FOKEW,4S:FOKEW+1,48:WAITJI,16,16:FORI=1TO160:NEXT 

KA=RND C 1 I KS+1: YZ=RNDCIIKE+ LE POKEWN,8%+45FOKEW+1 , Y%+48: IFFEEK<CJ)=SRTHENA439 
RETURN 

W=1949: J=S6320:R=127:F=14:FG=19:SG=1:RETURN 
W=1973:J=56321:R=255:F=18:FG=-14:SG=-R:RETURN 
FOCKE1378-293xS5P „32:POKE1373-23%5P „,32:PA=B: IFX%=YAZTHENPA=1:WI=SN) 
AC=B: IFCRZHYZSSIANDAD=BTHENAC=I 
FOR1=552:73T0554138:PCKEI,F!POKEI+SQGQ8,F:NEHXT 
IFX<SP)>BTHENSTA 

POKEF(P),31:FOR1=1T0O5@:NEXT 

Q=PEEK<JI: IFFA=1THENGOSUBI4R 

IFQ=RTHENS3® 

IF<QAND4 I =BANDP > L2ANDP <25-ADTHENPOKEP (P) ,32:F=P+1:G0T0570 
IF <QAND4 ) =BANDP >ADANDF < 1STHENPOKEF (P) ,„S2:F=P-1:G0T0578 
IF<QAND1>=B8ANDP >I2THENPOKEF (F) ,32:P=25-P:G0T0578 
IF<QAND 1) =BANDPF< 1STHENI1SB 

IF<QAND2 I =BANDF< 13THENPOKEP <P) ,32:P=25-P:G60T0578 
IFCQAND2 I =BANDP > 12ZTHENI 188 

IF<QAND1S>=ATHENTOD® 

IF<QARND3 > =AANDP< 12ZTHENPOKEP<P)Y,32:P=P+1:G0T0578 

IF CQANDS ) =BANDP >13THENPOKEP (P),32:P=P-1:G60T0578 

GOTOS828 

B=48 +48 4F<P,SP): IFP>LZTHENB=-B 

G=P+x7.: IFSP=1THENG=P-X% 

IFG>ZSTHENG=25:G0T01148 
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738 IFG<BTHENG=8:560T0O1168 
a8 IFG=25ANDWB< 1SORG=OANDWI<ISTHENS?O 

758 A=838+48%F(G,SP): IFG>I2THENA=-A 

768 IFF<P,SP>=AORF(G,SG)>1ITHENSSO 

778 IFABS<B) >3SBOTHENPOKEP (P)+B-328%SGN(B),81:G0T08399 

789 IFAD=BAND (P=BORP=25) THENPOKEP (P)+B,32:G0T0398 

798 POKEP<PI+B,456+47xSGN<P/2-INT<CP/2)):POKEP (P)+B+54272,5 

898 F(P,SP)=F(P,SP)-1 

818 IFABSCA)YISSBOTHENPOKEP (GI +A-328KSGN<A),87:60T0839 

828 POKEP(G)I+N,S1:POKEP (GI +A+54272,F 

838 F(G,SP)=F(G,SP)+1 

848 IFF<(G,SG)=8THEN399 

859 B=48%8 (SG): IFSG=ITHENB=-B 

868 IFSG=BANDG > I1STHENWO=WO-1 

878 IFSG=1ANDG<7THENWI=WI-1 

889 POKE1284+649xSG+B,81:POKESS476+6484SG+B ,FG!X (SG) =K (SG) +1:F(G,SG)=F(G,SG)-1 
8938 IFF(8,1)=150RF (25,8)=15THEN1069 

988 IFSP=9OANDP < 1SANDG > 18THENWO=WO +1 

9198 IFSP=1ANDP>EANDG<7THENWI=WIFL 

928 RA=Y7: YZ=0 :POKEW,32: IFX%=OTHENPOKEW+1,32:POKEP<P),32:G60T0418 

938 GOTOSS8 

948 C=C+1:1IFC=1BOTHENPOKES4272+W,1:POKES4273+W,1:RETURN 

958 IFC=28THENC=8:POKES4272+W,F :POKES4273+W,F: RETURN 

9368 RETURN 

3798 POKEP <P),S2:POKEP <P)+13,91:6=%%: IFSP=1 THENG=25 -X% 

9898 B=498%X (SP): IFP>LZTHENB=-B 

93398 A=89+4A#«F(G,SP): IFG>FIZTHENA=-A 

1888 Q=PEEK<J): IFCQANDE)=BOR <QAND1)=BTHENI 199 

1819 IF<QANDIEI< >OTHENL19B89 

1828 IFF<G,SG)>1THENI1848 

1838 POKE1164+729xSP+B,169:POKES5436+7284SP+B,5:8(SP)=X(SP)-1:POKEP(P)+13,32:60T 
08318 

18498 VASRZERASYZEVYZSVZEK=K +1: POKEW,K%+48:POKEW+1 ,Y%4+48: IFK=2THENK=B: Y4=9:G0OT0898 
1858 GOTO978 

186598 PRINTTAB(3)I"COPYRIGHT BY M. RUEDIGD":FORI1=1186T01826STEP48:POKEI,32:NEXT 
1878 POKE19598,32:POKE1949,32:POKE 1977 ,32:POKE1988,32 

19839 J=364SP:FOR1=1386+JTO1796+JSTEPSB:READA,B:POKEI,A:POKE54272+1,14:POKE1+36-J 
‚B 

1838 POKES43988+1,18:NEKT 

12a FOR1=-55413T0568938STEP39:POKEI,14:POKEI+36,19:FORJ=1TO49 :NEXT:NEXT 

1118 FORJ=1T03988:NEXT:FOR1=554 18TOS6BISSTEPSA:POKEI,1:POKEI+36,1:FORJ=1T0O48:NEXT 
:NEXT 

1128 FORI1=1T0798:NEXT: IFPEEK (56321) =233ANDPEEK (56329) =1 11 THENRUN 

1138 GOTO1198 

1148 FOR1=17TOP-1: IFFC1,8) >BOTHENS?® 

1158 NEXT:GOT0748:DATA23,12,9,15,19,15,14,19,5,5,18,18 

1168 FORI1=P+1TOS:IFF(I,1)>OTHENS?O 

1178 NEXT:GOTO?48 

1188 IF<PEEK<JIANDI1S)=-QATHENONSP+1GOTO12298,1258 

1198 IFX%=B0RYA=98THENI1218 

1209 VASRKERASTAEYASVT 

12198 VA=PEEK (WI :POKEW,PEEK (W+1):POKEW+1 ,V7:G0O TOS568 

1228 FORI=1T024-K%: IFFCI+X%,1)<1THENS7B® 

i2394 NEXT:FORI=1T024-YÜ: IFFCI+Y%,1)<1THENS7O 

1248 NEXT:Y%4=8:G0T0329 

12598 FORI=SXZ+1TO24: IFFCL-KN%,B)<ITHENSTO 

1268 NEXT:FORI=YA+1TO24: IFFCI-YZ,9O)<1THENS7O 

1278 GOTO1249 

1250 FOKEW,X7+48:POKEUW+1 ,8%+48:Q=PEEK (J): IF CQAND4 I) SB THENKA=KY- 1: IFRZ=BTHENKZ=I 
1238 IF<QAND16)=8THENFORI=1TO69:NEXT:RETURN 

1388 IF<CQANDS)I=BTHENKK=EKT+L: IFRZ=7 THENKZ=6 

1318 FORI=1TO158:NEXT:GOTO1288 

READY. 
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Vor dem Laden und Eingeben sollte man 
folgende Pokes eingeben: 

POKE 44,28 

POKE 7168,0 

NEW 


Spielbeschreibung: 

Die Nachricht hat sich wie ein Lauffeuer 
über das Land verbreitet. 

Ein Angriff der Hungulus ist geplant! 
Sie wurden mit der ehrenvollen Aufgabe 
betraut, die Welt zu retten!!! 

Schon tauchen am Horizont die ersten 
Invasoren auf. Der Chef der Hungulus 
leitet persönlich mit seinem Raumschiff 
den Angriff ein. Ihr Computer in der 
Zentrale meldet Ihnen, daß alle drei Ka- 
nonen mit jeweils 9 Schuß geladen und 
zum Kampf bereit sind. Sie haben gerade 
noch Gelegenheit, den Joystick zu ergrei- 
fen und Ihren Mut zu beweisen. 


Programmbeschreibung: 

Ihre Aufgabe ist es, vier Städte, die am 

unteren Bildschirmrand aufgebaut sind, 

zu verteidigen. Zu diesem Zweck steht 

Ihnen ein Hochleistungslager zur Verfü- 

aung. Von oben kommen die Invasoren. 
B REM xxABM CC) 1934 BY h. 

11.KOSTOPULOSK« 

! POKLSS 


LOSUBA4B38. POKE36863 ,285 
GOSUR1818B. GOSUBS8Q 


£ 1MS7C12),T7012). TN=36874.FORT=8TO12.R 


SIBCHD 


für den VG-20 + /6K 


Man muß nun sein Zielkreuz kurz vor ei- 
nem Invasor setzen und den Feuerknopf 
drücken (siehe Programm). Bei einem 
Treffer entsteht eine Wolke, die sich 
verflüchtigt. 

Das Abschließen eines Hungulus bringt 
100 Punkte x Bonus, das Raumschiff 
500 Punkte x Bonus, jeder Schuß, der 
übrig bleibt 10 x Bonus, jede gerettete 
Stadt 100 Punkte x Bonus, jeder Blitz, 
der am Boden aufschlägt 100 Punkte x 
Bonus. Nach jedem Angriff werden die 
Kanonen neu geladen. 


Grafik: 

Selbstverständlich werden selbstdefi- 
nierte Zeichen verwendet. Als eine Be- 
sonderheit soll erwähnt werden, daß 
manche Zeichen in Multicolor-Modus er- 
stellt wurden. 

Eine “Freeze”-Funktion ist ebenfalls vor- 
handen. Diese erreicht man durch 
Drücken des Feuerknopfes und Bewegen 
des Joysticks nach unten. Als Zeichen 
für “Freeze” geht an den Kanonen das 
Licht aus. 

Mit “F1” wird das Spiel fortgesetzt. Bei 
jedem Aufschlag eines Blitzes wird das 


SCHADEN & 


‚4. POKE8S1 ,8. POKES32 ,8. GOT03188 


ENDTACTI.NERT LINE 180 
6 GOSUBR23LB FORT=BTO4.DALTI=1:NEXT:UREL: „a CR 

SW7 =1.SC=8.M7 +8. GOSUB3922. GOTO258 “Q ERSR DOWN 
i8 CT7=5.%=10.=7.LP%+48S6+X+Yx22. Pr =LPr 2 BUSCH 

. FORT =8103. B7CT 1=9. NEXT. BB4=32. POKE198 ‚B „4, SHIFT+H 

ıl K=33732 2, 95 AEE 
een "8° COMMODORE+A 
188 PUKE36879, 239. POKE646 ‚14. PRINT’ sAUOQ EOBNOBOREFE 
Er: VONUGGUSAUARAL. Relr LINE 118 

ka. = "5" COMMODORE+ 
i1® PRINT"SRAMI11II11I" 5 -POKEEA46 ‚14: PRIN "1" CTRL+B EN 
T'232D1111111)' » - POKE646 ,14- PRINT"S”, "0" COMMODORE rx 
ı24 PRINT AR 9 7 9 6 91“ ;:POK "37" SHIFT+A 
E46Bi ‚168. POKL37888+505 ‚> "2" COMMODORE+R 


38 074538: FORT=8T03: TT=Tx4: IFTTY>4THENT 


"9" COMMODORE +U 


T=TT+3 

148 IFDACTJI>QOTHENGOSUBS2RB LINE 128 

145 NEXT "9" A REAL NINE 
158 FÜRT=BTOS.PLTI=4B75+RNDE1 IXK22:RCTI=R "2" COMMODORE rY 
NM T1.2=.6 TFARSCRLT)II.STHENSCT 3=1X56 "56" COMMODORE+L 


19. September "84 


Compute mib 


Licht an 
schwächer. 
Neustart nach “Game Over” mit “F3”. 


den Kanonen ebenfalls 


Programmaufbau: 

00005-00011: INIT Game 
00100-00120: Kanonen printen 
00130-00145: Stadt prüfen 
00150-00160: INIT. Blitz und Ufo 
00250: Hauptschleife 

00260-00430: Scoreauswertung 
00500-00550: Bewegung Blitz 
00560-00600: Treffer 

00700-00760: Bewege Ufo 
01000-01150: Joystick und Fadenkreuz 
02000-02020: Schuß 

03000-03030: Stadtaufbau 
03100-03130: Ramtop 
03900-04020: MC Programm einlesen 
04030-04080: Zeichen einlesen 
04090-04980: Zeichendatas 
05000-05003: Freeze 

06000-06007: Musik 

07000-07020: Explosion 

10000: Datas (Laser & Ufo) 
10099-10370: Anleitung 
20000-20003: Data MC-Routine 
40000-42240: Sonderzeichen in REMs 


ERKLAERUNG DER SONDERZEICHEN: 
a 


LINE 318 
£" CTRL+3 


LINE 2358 
ER De 2 


LINE 356 
"—' SHIFT+x 
“a” ShIFT+A 
po ' ShHIFT+B 
LINE i8T18-T3TT4 
8: 2" SHIFTH ES Z 


LINE i8128 
ie :SHIFT + E 


LINE 183508 
"a" SHIFT + Q 


"oa ERSR LEFT 


(3) 


43 


a4 


NLRCT)) f 

152 X%=4162+INTCRNDC1 9x? J)x22:UF%=1:1%=IN 
TCRNDC1 )x2 )x2-1 

154 IFSGNCI# )=-1THENTAC12)=219: T7010)=22 
1:GOTO0168 

156 T7C(12)=221:T7(18)=219 

168 RCTI=RLT I+22:NEXT:NA=6:EZ=RNDCI IX 12+ 
4: RETURN 

258 GOSUBI 888. FORG=1TOSWA: GOSUBSBB: GOSUB 
788: NEXT: GOTO258 

268 IFMA>BTHENMA =MA-1:G0SUB158: RETURN 
278 POKETN+3,8:POKETN+4 ,175:F7=BX[1 )+BAC 
2 J+BAC3): FORT=1TOF%: IFFA>BTHENPOKE3?998+ 
T,8:POKE4286+T ,38 

271 SC=SC+18XxSWX. GOSUB3S?B: POKETN ‚238: FOR 
R=1T028: NEXT: POKETN „8: NEXT 

288 SK7=28:F%=8:0%=4275:FORT=0T03: TT=Tx4 
: IFDACT I>BTHENGOSUB3B88: SC=SC+H1BBXSWA: GO 
SUB3?8:Fx=1 

298 POKETN, 248: FORR=8TOSKX: NEXT:POKETN,® 
NEXT 

388 6% =B: MA =V%: U7 =UX+1: TIFUZI4THENSWA =SWA 
+1:0U7=1:M7=8 

318 PRINT" sAQIII1IBONUS X" SWx: FORT=8T028 
88: NEXT: IFFA>BTHENPOKETN+4 ‚168: GOTO3838 
348 POKETN+3,238: FORT=38TOBSTEP-.5:POKET 
N+4 ,T72+168: POKETN+5,42 

341 FORTT=1T0?8: NEXT: POKETN+5,25:FORTT=1 
TO?8:NEXTTT,T:POKETN+5,238- POKETN+3,8 
345 PRINT"SIIIIIIG6AME OVEREF” 

358 GETA$: IFAs<>" #" THEN3SO 

355 PRINT"sA NEW GAME IS CREATETE” 

356 PRINT"QOAR-r Rar.Rbr.- SOFTWARE“ 

368 RUN2 

378 PRINT "SQAIAIGAAIGGAQAI1II1ISC ="SL:GOSU 
B388: GOTO398 

388 K1$=RIGHT$C"888°+STR$CPEEK(839)),3) 
381 K2$=RIGHT$C"8R9"+STRSLPEEKC831)),3) 
382 K3$=RIGHT$C"888"+STR$LPEEKC832)),3) 
383 HS=UALCKI1$+K2$+K3$ J): RETURN 

398 IFSC>HSTHENHS SC: SK4=198:HS$=RIGHI SL" 
888888" +STR$CHS),6):G0T0498 

395 GOTO438 

488 POKE838 ,„UVALLLEFT$SCHS$,2)) 

418 POKE831 ,VALCMID$CH$,2,2)) 

428 POKE832 ,UVALCRIGHT$CH$,2)) 

438 PRINT"QAIIIIIHI ="HS:RETURN 

588 Ux =Ux+1: IFUZICTATHENUX =Q 

515 IFPLCUA )<487STHENRETURN 

524 R=PEEKLPLUR I): IFR=1BSORR=2330RR =2230 
RR=950RR = 17 10ORR=16BTHEN62B 

525 R=PEEKCPLUAR I+RLUR I): TFR=1B8SORR =2230R 
R=2330RR =950RR =1710ORR=169THEN6BD 

526 PLUA I=PLU% I+RLUR I: IFPLUA )>4536THENSS 
8 

527 IFPLU% )>4369ANDP (Ux )£4369+SUIrx22ANDU 
A>BOTHENS29 

528 GOTO538 

529 IFPLUA-1)I=:8THENPLUA-1)=PLUX I: RCUX-1) 
=-RLUA )+44: NA =N%+1 

538 C=CPCUr )-INTCPLUR )) I)x8: TIFABSCRLUR I-2 
2 )=1 THENC =8-SGNCRCU% )-23) 

548 POKEPCUR),TACC I: RETURN 

558 POKEPLUR),32:SC=SC-189xSWr: J%=PLUR )- 
4536: IFJA>21THENJA =J%-22 

568 IFJA=BTHENB“C1)=9:POKE4581 ,176 

561 GOSUB?828: POKE4558+J7 ‚86: POKE4558+J% 
+K „2: IFJAY>LANDJA<STHEND“ CB )=O 

562 IFJA>SANDIA<ITHENDAC1)=8 

563 IFJA>9AND JA<12THENBAC2)I=9:POKE4599 ,1 
76 

564 IFJAY12ANDIR<LIETHENDAC2)=O 

565 IFJAYLEANDJIA<2BTHENDAC3I=8 

566 IFJ%=21THENBAC3)=3: POKE4I692,176 

688 SC=SC+199xSWA: NA =NZ-1:FORT=PLUA)ITO4B 
96STEP-RLU% ): POKET „32: NEXT: PLU% )=8:GOTO3 
848 

>88 IFUF%=B8THENRETURN 

783 1%=1%+SGN( 1% )1:1L%=%7+17: IFABSCIA )=28T 
HEN?68 i 

718 IFABSCI#)=EATHENFORT =6T08:PCT )J=L%+r22 
.5S:RCT )=T+15:NEXT:CT%=8:N%=N%+3: POKEL%+ 
2,93 r 
748 FORT =8T92: TT=L7+SGN( 1% )XT:R=PFEKCTTY 
?42 1rR=2330RR =750RR =2230RR =1BSORR =I5ORR 
=16B0ORR=1?71LTHENSC=SC+HSBOXSWA: GOTO?68 

758 POKETT,T#CT+18):POKETT+K,14:NEXT:POK 
EL#-SGN( 1% ),32: POKEL%-SGNCIZ I+K,1:RETURN 
768 FORT=-1T02:POKEL7+SGN( I“ )XT ‚32: POKEL 
%+SGNC 1% I)xT+K „1:NEXT:UF%=8: RETURN 

999 REM xxxxx JOYSTICKxxxXxx 

i888 TA=USR(B)J:CA=8 

1885 IFTA=138THENGOSUBTED2I1 


Compube mik 


1818 IFTA=1THENY=Y-1 
1828 IFTA=4THFNX=X-1 
18380 I1FTA=RTHENX=X+1 

1648 IFTA=TTHENY=SY+I 

1858 IFTA=1UTHENX=Xrl:Y=Y+1l 

1068 IFTA=YTHENX=X+1:Y=Y-1 

1878 IFTA=SATHENX=X-1:Y=Y+1 

1633 IFTP=STHFENX=SX-1:Y=Y-1 

188: IFX>ZOTHENX=28 

1832 IFX7"TEONX=1, 

1883 IFY»>LSTHENY=18 

1884 IFY<1THENY=1 

1885 CA =ABSCLTA=132)+CTA=129)x2+ 0 TA=136) 
x*x3 3: IFCATHENGOSUB2998: POKE4581+LC7-1)x9. 
5,B#(C# )+176 

1898 Px=49896+X+Yx22: POKELP4 ,BB4:6%=6% -1: 
IFG%A>BTHENPOKETN+4 ‚G%+168 

1188 GOSUB3949:R%=R%+1: IFR%>12THENR“ =9: I 
FN“=9THEN1148 

1128 IFSACRA I>4B96THENFORT=-1TOL:FORTT=- 
1T01:60T01125 

1124 GOTO1138 

1125 F%=SACRA )+Tx22+TT:POKEF% „32:NEXTTT, 
T:SACR“ )=4896: GOSUR3242 

1138 LP%=Px:RETURN 

1148 IFM#=3THENFORT=8T012:RA=T:GOSUB1129 
:NEXT 

1158 LP%=Px:G0T0262 

2888 IFBACCH)<1THENRETURN 

2818 SARA )=PA:FORT=-1TO1:POKESACRA)I+TX2 
2,168: POKESACR# )+T ,168: NEXT:BB“=171:Bx%CC 
%)=BA0C# )-1 

20828 POKESATRA )-23 ,233: POKESACRA )-21 „223 
: POKESACRA )+23, 185: POKESACR“ )+21 ,95:G6% =1 
5:RETURN 

3888 FORC =0%+TT+KT00%+TT+3+K: POKEC „4: NEX 
r 


3881 POKEO“+TT+22,237:POKEO4+TT+22+K ‚14: 
POKEO“+TT+23,238: POKEO“+TT+23+K ‚6: POKEO%A 
+TT+24 ,239 

3882 POKEO7+TT+24+K,14 

3818 POKEO“+TT+K,14:POKEO4+TT+1+K,14:POK 
EO+TT+2+K,14 

3828 POKEO4+TT „234: POKEO“+TT+2 ,236: POKEO 
%+1+TT ,235:RETURN 

3238 GOSUB18:POKETN+4 ,161:POKETN+3,238:R 
ETURN 

3848 R=PEEKCP* ): IFR<>Z19ANDR <>222ANDR <>2 
21ANDR <>43THENRB% =PFEKCP% ): POKEP% „43 
3858 RETURN 

3188 AC=PEEK(SS)J+256XPEEK (56 )-53 

3118 POKESS,AC-CINTCAC/256 )x256 ) 

3128 POKES6 ,AC/256:CLR 

3138 G60T02 

3988 AC=PEEK (SS )I+256xPEEK (56 )+2: IFPEEKLA 
C )=173THENRETURN 

42888 FORSH=8T049: READKMA: POKESH+AC ‚KM: N 
EXT 

4218 POKEB,76:POKE1 ,AC-CINTCAC/256 )x256 ) 
4028 POKE2,AC/256:RETURN 

4238 IFPEEK(5128 J)=PEEK(32768 JTHEN4859 
4848 FORJ=8T02947:POKEJ+5128 ,PEEKLJ+3276 
BJI:NEXT 

40858 READX: IFX=-1THENRETURN 

4069 X=Xx8 

4879 FORJ=5129+XT05129+X+7:REANA:POKEJ,A 
:NEXT 

4882 GOT04259 


48923 REM xxXxXXKKcKcKcK USER DEFI 
NED CHARACTERS KXXXX 
KXXKRXX 

48932 REM 


40895 REM xxxA C Bxxx 

4188 DATA192,60,126,255,231,195,255,255, 
195 

4118 DATA193,126,254,224,192,192,224 ‚254 
‚126 

4112 DATA81,66,24,36,66,126,66,66,66 
4115 REM xxxCROSSxxx 

4128 DATA194 ,254 ,255,195,206 ,286,195,255 
‚254,43,24,24,24,231,231,24,24,24 

4138 DATA171,231,231,231,24,24,231,231,2 
31 

4135 REM xxx(C )Ixxx 

4148 DATA6?7,126,129,157,161,161,157,129, 
126 

4145 REM xxx ABM xxx 

4158 DATA195,9,8,0,0,9,3,6,6 

4168 DATA196,8,8,0,0,8,192,96,96 

4178 DATA197,12,12,12,24,24,24,24 ,48 
4188 DATA198,48,48,48,24,24,24,24,12 
4198 DATA199,48,63,63,48,96,96,96,96 
4299 DATA288,12,252,252,12,6,6,6,6 

4218 DATA201,96,96,192,192,192,192,192,1 


19. September ’84 


92 
4228 
4238 
4248 
4258 
192 
4268 
4279 
„192 
4280 
4298 
255 
4328 
4318 
4328 
4338 
4348 
‚148 
4358 
4368 
4378 
92 
4388 
4385 
43939 
4488 
4418 
4415 
4428 
4438 
4448 
152 
4458 
4468 
255 
4478 
zZ 
e475 
4458 
44938 
4588 
178 
4518 
‚178 
4515 
2528 
4539 
‚178 
4535 
4548 
4558 
5 
4555 
4508 
4565 
4570 
4528 
4599 
4509 
“612 
«628 
4630 
4648 
4658 
4668 
«578 
«638 
acaa 
«595 
«720 
>78 
37168 
4715 
a??22 


47308 
4735 
4749 
4758 
“>55 
4769 
1765 
a?>?8 
27275 
“289 
4785 
4736 
475? 
4788 
4789 
1720 
«Zi 
2) 
£n 
4734 
4459 
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DATA202,6,6,3,3,3,3,3,3 
DATN203,9,98,9,8,0,255,255,192 
DATA284,0,0.08,08,0,224,249,56 
DATA205,192,192,192,192,192,192,192 


DATA2986,28,12,12,12,.12,12,12,28 
DATN297,192,255,255,192,192,192,192 


DATA2938,56,249,249,56,28,12,12,12 
DATA289,192,192,192,192,192,192,255 


DATA219,12,12,12,12,28,56,249,224 
DATA211.8,8,8,8,9.12,12,12 
DATA212,2,98,8,08,0,48,48,48 
nDATA213,30,38,25,253,25,25,49,49 
DATA214,128,128,152,152,152,152,148 


DATA215,93,49,49,48,96,96,96,96 
DATA216,148,148,148,12,6,6,6,6 
DATA217,95,96,192,192,192,192,192,1 


DATN213,6,6,3,3,3,3,3,3 

REM xxx UFO xxx 
DATA219,08,8,18,42,178,178,76,76 
JATA228,98,498,170,150,150,179,28,28 
DATA221,9,2,168,163,178.178,49,49 
REM *«xxCASTLExXK«K« 

DATA234 ,68,102,42,42,42,492,92,38 
DATA235,65,65,0,8,8,2.2,8 
DATA236,17,153,168,168,163,168,168, 


DATA237,942,38.42,42,38,38,38,38 
DATAZ33,85,299.,2355,2933,299,,239.,295, 


DATA239,168,152,168,168,152,152,152 


REM xx CANONI && 
DATA249 ,1.1 1.1.41 

DATA241 ,64,64.64.64,694.,1698,224 ,224 
DATAZ42,18,178,187,170,174,179,187?, 


DATA243,168,1ı708,238,178,186,170,238 


REM xx CANIN2 x% 
DATA244 ,28,28.28,28,28.170,187,238 
DATA245,187,238,187,238,187,238,187 


REM x«LANDSCAPEXK 
DRATA246,,9.,34,.35 .127,2553,2595.,239,2533 
DATAZ4? 8,16 ,1.52,2313293,239,299 ,25 


REM xXROCKET«« 
DATA3Q,24,22.,68,68,126,126,126,182 
REM &&x LASER LIGHTNING xx& 
DATA6G,16,8,16,9,16,8,16,8 

BIRD. ı32,8.32.,0.32.0.22,0 

DATA?Z ,1,0,4,0.4,8,4,8 

uninsa, 64 ,8,64,2,64,0,64,8 


DNTAIIL2HE 2,0,2, 92.0 
DNTN33,8,0,58,8,5,8,3,8 
nn 8,123,9,128,9,128,8 
DATALDI,1,BI 8.10, 1, 
er 8.32,0.2,0.2,08 
DATA?8,1,8,4,0.16,0,649.0 
DAINSG, 128. 8.360,8,24,8,66,8 
REM *xxEXPLOSION«« 
DATNI23,0,0,28.0.8.8.0.69 
DA1AIZ9I,0,9,0,0,8,8,24,60 
OATNL38,8.8,8,8.8.0,24,126 
0A1#131,8,0,8,8.2,8,68.126 
CNiA132,08.0,9,8,80,24,608,126 
DATAL33,0.8,8.0,294.24,68,126 
DnINı24.,08.9.0.24,24, 69. 69.126 
1319135,9,80,24 ,24,24,60,68.68 


DATA136,8.60.202,24,60,68,60.68 
DATAL37,126,69.24,24,24,68,69,68 
DAIAL3S,126,255,24.24,24,24,60,608 
D0ATAI39,126,255.153,294,24,24,24,60 
DATA149,126.,.295,219,133,24.,24.,249.68 
DAlAaı41,126,255,219,153,29,24,24,24 
BATN1942,125,255,219,153,29 ,294,24,B 
nATINiA3,126,255 2,193529 290,8 
en 
DATA145,126,255,219,153,9,0,8,8 
a A 25.219. 129,0,8,;0;8 
calmı4?,.1 ı95,129,8,8.8,8 
DATNI48,69, en ı9%,129,8,8.4 
DarAı49,68, 182.231.195.06.8.0.0 
DAIAISB,4,182,195.135,192,608,0,08 
SATAa15ı,8.56.00,60 .C,36,0.8 
0R1NA192,8,8.006.0C.09,005,B, 56 


LRTALGS.I,0,9,60.9.;50 8,36 
> DNINıha ,0,0,0,0.0. 50,9,36 


uvn19,54,0,0,8,8,9.0 2,30 
un H da 


4939593 KULTURM 
52388 REM x&k FREEZE xx 

5231 POKEI93,8:00- =PERKL36S?8 1. FOKESCS?E 
‚8 

soe?2 GETAS. IFASC) e THFENLBBE 

a8s FOKE3S6878 ‚DD*- RETURN 

5089 REM xxx MUSICKKK 

HaBi MUs- 191802191882191202287033223098 
3839842190998221700.22130022310085223988 
5332 MUS =MUs+ 2288904.2,980 en 
1800 ;22338821988:21729221988221301 2808894 


638. PGKE36878 ,15- FORZ=ITOL32STEPG:A=SUNL 
)$(MU$,Z,3)) 

a4 POKE268?6 ‚A: POKF 36875, 
6235 B=VALCMIDHLMUS ‚23,4 
5 FORA -TTOBK1BB. NERT- 
75 BENEXEZ 
27 KEIURN 
7208 XAr :15: FOREX=1T028 
7818 POKE36877? ‚248. POKE4558+J% ,EX+127:PO 
KE4558+J7+K ,2 
7928 POKE36878 ‚,xA%+ 168: XAz =XA2-8.5:NEXTE 
X: RETURN 
9999 REM xxDNTAS FOR LASER LIGHTNINGxXx 
i8828 DATAIBI1,834,7ı,66,93,72,83,183,77,? 
8,219,228,221 
18899 REM xx INSTRUCTTONSxx 
18188 PRINT"smll1IRr Rar Rbr PRESENTS 


18181 POKE36879,8 

i8118 PRINT QLILI111RedGane FOasshRanis" 

i8112 PRINT SQQLIIIIII111x | ann daran 

ar » 

8114 PRINT SQO11I11JI1JI111111st QausvQanıx 

Qaarz" 

i8128 PRINT QALJ1IIJIE 1934 BY 

18128 FRINT QOH.SCHANEN - PRINT QLII11111 

180GM.KOSTOPULOS :GOSUB69B8 

ı81ı48 PRINT QGALILIPRESS ANY KEY", :POKE 

‚»93,8.WAIT193,1:POKE3S6869,192 

ı8288 PRINT"SJUSE THE JOYSTICK AS all 

lIFOLLOWS 

.&228 PRINT QQAYOU CAN DRIVE IN ALL QLl) 

NIIDIRECTIONS".PRINT QQALII11IIIIFIRE- 

ı8238 PRINT QORLASERIrL : LEFT & FIRE’ 

i8248 PRINT ORLASER2r : TOP & FIRE 

18258 PRINT 'QRLASER3L : RIGHT & FIRE” 

18255 PRINT 'ORFREEZEr_ : DOLUN & FIRE 

18269 PRINT GQLLLLIPRES S ANY KEY"; :POKEI 

s3,8:WAIT198, 

.8278 PRINT % YOUR MISSION: ' 

i8288 PRINT QLILI11HESTROY THE ' 

18298 PRINT QLLILASER LIGHTNING 

18388 PRINT QQOYOU MUST DESTROY THEM OBEF 

IRE THEY REACH YOURNQ CITIES 

‚8318 PRINT QL1111YOU DECREE" :PRINT 'Q113 
ASERSTATIONS - 

.8328 PRINT QIEACH OF THEM HAYE'. PRINT Q 

1191119 SHOOTS 

8239 PRINT GULLI LIPRES S ANY KEY”; POKEIY 

3,8:1A1T198,1.POKE36869 ‚285 

.8248 PRINT dar 711 1E000 LUCK 33 

6358 PRINT QOOR-LCTION RarENTER RoraRN& 

ACH 

8368 PRIN! OOI1LIIIIAUSTRIA -PRINT"OGPR 

SS ANY KEY TO START ; FOKEIIE,8:WAITI98 
L2PRINT 

ı837?8 POKE368693,285.RETURN 

6082 REM MC-ROUTINE 

e8öbı MDAINL?3.17? 195,72,724,724,941,7,133,2 

184 ,41,32,18,10,5,251,133,251 ,162,:27 

142,24 

22882 DATA145,173,32,145,162,255,142,34, 

145,491 ,128,74.,24,74 ,24,5,251,9,112,73,25 

5,168 

„B922 CNTN.69,8,76,135,2ii 


IFM$X =" Frauen oruassen” THEN GOTO "Aurnennen” 
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Mit diesem kleinen Programm ist es mög- | (5) - ENDE 
lich, den Namen oder die ID einer 


2608 BET ZE: IF ZE$<>"J"ANDZE<>"N"THEN 268 

278 IF Z&5="N" THEN 7508 

288 RETURN 

2938 OPEN1,8,15 

388 OPEN2,8,2, "#" 

sı18 PRINT#HL, "UI 2 8 18 8" 

328 INPUT"NEUER NAME: ";B$ 

338 B$=LEFT$(B$,16) 

348 PRINT#H1, "B-P 2 144" 

358 IF LEN(B$)<16 THEN B$=B$+CHR$(C168):G0TO 359 
368 PRINT#2,B$; 

378 PRINT#1, "U2 2 8 18 8" 

388 CLOSE2 

3938 PRINT#1, "18":CLOSEi 

409 PR INT " SislaisisisinpuppsDDDDe OK 1": PRINT 
418 PRINT"WEITER(CJ/ND" 

428 GET2S: IFZS<C>"J"ANDZ&<>"N"THEN 428 

438 IF2Z$="N"THEN 7598 

448 RETURN 

458 OPEN1,93,15 

469 OPEN2,3,2, "#" 

478 PRINT#HL, "Ul 2 8 18 9" 

488 PRINT#1, "B-P 2 162" 

438 PRINT"ID:" 

588 FOR I=1 TO 2 

518 GET#2,C$:IF C$=CHR$(168)THEN 538 

528 PRINTCS$; :NEXT 

538 CLOSE2:CLOSEI 

548 PRINT " Sieeleinpeispelepn a BEBBBIOK ! "SPRINT 


-GHANGER 


für den G-64 


(Identifier) gelesen. Weiter (J/N) N = 


Programmende 


Diskette zu ändern. Das Programm ist | BeiDrücken der Taste“1” wirdder Name | Bei Drücken der Taste “4” wird ein neu 
menuegesteuert. der Diskette gelesen. Weiter (J/N)N= | ID verlangt. Das Programm nimmt n 


Eprom-Programmer V128 für C 20, C 64 u. SX-64 


Neu: Eprom-Programmer V128-G 


Uniment-C 64-Befehlserweiterung: über 50 zus. Befe 
u. Funktionen für Assembler, Centronics-Druckansc 
Graphik-, Sprite-, Sound- und Disketten-Anwendung; 
Beispielprogrammen u. ausführlicher Bedienungsan 


— Eprom-Karten und -Löschgerät 


Info — 80-Zeichenkarten 
gegen Hagen Völzke, Ahornallee 4, 8023 Pullach 
Rückporto Versandhandel Tel. 089/7934534 
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er 
ur 


Programmende zwei Werte von den eingegebenen. 

Beschreibung: Bei Drücken der Taste “2” wirdeinneuer | Weiter (J/N) N = Programmende 
MENU: Diskettenname verlangt. Das Programm | Bei Drücken der Taste “5” = 
81) - Name lesen nimmt nur 16 Buchstaben von deneinge- | Programmende. 
82) - Name ändern gebenen. Weiter (J/N) N = Programm- 
(3) - ID lesen ende 
(4) - ID ändern Bei Drücken der Taste “3” wird der ID 

18 PRINT"I" S58 PRINT"WEITER(CJ/NI" 

28 PRINT SEB GETZS$: IFZ$CY)"J"ANDZ$< >"N"THEN 568 

38 PRINT Ss78 IF Z$="N" THEN 758 

48 PRINT 5358 RETURN 

S® PRINT"WAEHLEN SIE GEWUENSCHTE FUNKTION: " 590 OPENI.8,15 

88 PRINT 808 OPEN2,8,2, "#" 

78 PRINT" <1)-NAME LESEN" 8618 PRINT#1, "Ui 2 8 18 8" 

88 PRINT” (2)-NAME AENDERN" 628 INPUT"NEUER ID: ";D$ 

98 PRINT" (3)-ID LESEN" 638 D$=LEFT$(D$,2) 

188 PRINT" (4)-ID AENDERN" 648 PRINT#HI1, "B-P 2 162" 

118 PRINT" SI) -ENDE*" 858 FF LEN{DS)I<2 THEN D$=D$+CHR$SC159):GOTO 658 

128 GETR$: IFRST"L"ORKSI"S"THEN 120 668 PRINT#2 ,D$; 

138 ON YVALCK$)GOSUB 150,298 ,458 ,598,750 678 PRINT#HI, "U2 28 18 8" 

148 PRINT"U":GOTO 28 8638 CLOSE2 

158 OPEN1,8,15 &38 PRINT#H1,"18":CLOSEI 

168 OPEN2,8,2, "#" 708 PRINT" EespppspisrerK | "SPRINT 

178 FRINT#H1, "U1 2 8 18 8" 718 PRINT"WEITER(CJ/NI" 

158 PRINT#1, "B-P 2 144" 20 GETZS:IF 2873" J"ANDZ$< )"N"THEN 720 

138 PRINT"NAME:” 738 IF 2$="N"THEN 758 

288 FOR I=1 TO 16 758 RETURN 

218 GETH2,A$: IF A$S=CHR$(CISBO)THEN 239 7589 PRINT"I" 

28 PRINTAS$; :NEXT 768 PRINT" KBERDiBEDIEIPEIIIIRBERBE N D E !" 

238 CLOSE2:CLOSEI 770 PRINT:PRINT:PRINT:PRINT 

248 PRINT" EisispıpppgniDu OK |" :PRINT 758 END 

E58 PRINT"WEITER<(J/NI" READY. 


V-& Völzke Computer V C 
P Peripherie P 


für 


Eproms 2508/16/32 u. 2758/16/32/64/128. Professionelle 
Ausführung m. komfortabler Treiber-Software auf Kas- 
sette: DM 249,— 


im Pult-Gehäuse DM 349,— 


hle 
hl., 
mit 
lei- 


tung DM 9,— 


Diskette zzgl. DM 7— 
zo UNIMENT-Steckmodul DM 199,— 
1 Weiteres aus unserem Programm: 
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ADA: 

Höhere Programmiersprache, wurde im 
Auftrag des amerikanischen Verteidi- 
gungsministeriums entwickelt und von 
der EG zur Normsprache erklärt. 


Algorithmus: 

Alles was systematisch abläuft, folgt ei- 
nem Algorithmus. 

Man kann Algorithmus auch als Verfah- 
ren bezeichnen. Wird dieses Verfahren 
programmiert, so entsteht ein Pro- 
gramm. 

Ohne einen eindeutigen Algorithmus ist 
ein Programm meist unlogisch und damit 
nicht funktionsfähig. 


Abakus: 

ist das älteste Rechengerät der Mensch- 
heit. Je nach Ausführung werden fünf 
oder sieben Kugeln auf Stabreihen hin- 
und hergeschoben. Aufgrund der Position 
der Kugeln ergibt sich dann der Wert. Der 
Abakus ist heute in Indien, Rußland und 
Asien aufgrund seiner Einfachheit noch 
verbreitet. 


Akustikkoppler: 

Hilfsmittel zur Datenfernübertragung. Der 
Akustikkoppler sendet und empfängt 
Daten von anderen Rechnern und wan- 
delt die Töne in Gomputersprache um. 
Die Datenübertragung läuft über das 


Fernmeldenetz, die Koppler müssen eine 
FTZ-Genehmigung haben. 


ASCII-Code. 

Der ASCII (sprich: Aßki) ist die amerika- 
nische Fassung des weltweit ver- 
breiteten ISO 7-bit Code. Es werden 
Zeichen mit je 7bit und einem Kontrollbit 
dargestellt. Mit diesen 7 Variationsmög- 
lichkeiten lassen sich 128 Zeichen 
darstellen. 


Assembler: 

Programmiersprache, die jeder Computer 
intern zur Verfügung hat. Assembler ist 
eine maschinenorientierte Programmier- 
sprache, da ein Assemblerprogramm auf 
einem anderen Computertyp nicht läuft. 
Die Basis sind die Zahlen O und 1. 


ANSI: 

steht für American National Standards 
Institute. 

Ziel der Behörde ist es, für die Industrie 
einen einheitlichen Standard festzule- 
gen, vergleichbar mit der deutschen DIN- 
Norm. 

Es wird eine größere Kompatibilität der 
Hard- und Software angestrebt. 


Analog-Digital-Wandler: 
elektronischer Baustein, der die analoge 


ständliche Form umwandelt. 
So können z.B. Temperaturen, Feuchtig- 
keit, Bilder etc. in digitale Form gebracht 
werden. Der Computer kann diese Infor- 
mationen verstehen und bearbeiten. 


Anwender-Programm: 

Mit Hilfe eines Anwenderprogramms 
kann der Benutzer spezifische Probleme 
lösen. Dabei sind keine Program- 
mierkenntnisse notwendig, der Benutzer 
bekommt genaue Anweisungen, z.B. 
durch Menuesteuerung. 
Textverarbeitung, Kalkulation, Dateiver- 
waltung sind einige Anwenderprogram- 
me. 


ALGOL: 

höhere Programmiersprache für den 
technisch-wissenschaftlichen Bereich. 
Verliert immer mehr an Bedeutung, da in- 
zwischen andere Programmiersprachen 
leistungsfähiger sind. 


Austesten: 
Softwaregesteuerter 
Computer. 

Das Programm überprüft sämtliche Regi- 
ster und Peripherie des Computers (z.B. 
Farbe, Ton, Tastatur). 


Selbsttest für 


Umwelt in digitale, d.h. ie 
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KFG-Super 


Auf dem Markt sind inzwischen mehrere 

Basicerweiterungen für den G-64 erhält- 

lich z.B. Simon’s Basic, Ex.-Basic Level Il 

usw.). 

Diese Zusätze werten das schwache 

Basic des G-64 erheblich auf, einer der 

interessantesten dürfte wohl das steck- 

bare Modul, “KFG-Super”, mit einge- 

bauter Gentronics-Schnittstelle und ein- 

gebautem Maschinensprache-Monitor 

sein. 

KFC-Super wird in den Adreßbereich 

$8000-$9FFF geladen und besteht aus 

folgenden Funktionseinheiten: 

— Programmierhilfen 

— Schnelle Kassettenroutinen 

— komfortable Floppy-Befehle 

— Centronics-Druckerschnittstele am 
User-Port 

— Maschinensprache-Monitor 

— Repeat-Funktion der Tasten (abschalt- 
bar) 

—- Escape- und Pause-Taste 

Das Modul besteht aus einer offenen 

Platine, zwei Steckplätze für weitere 

Eproms sind frei. 

Mit den auf der Platine befindlichen DIP- 

Schaltern können die Eproms ange- 

steuert oder ganz abgeschaltet werden. 

So kann auch bei aufgestecktem Modul 

im Normalzustand gearbeitet werden. 

Sehr nützlich auch die RESET-Taste, mit 

der verlorengegangene Speicherinhalte 

noch gerettet werden können. 

Direkt am User-Port anzuschließen ist 

jeder Drucker mit Centronics-Schnitt- 

stelle, das teure Interface entfällt. 

Man benötigt lediglich ein geeignetes 


Verbindungskabel. 

Je nach Anwahl der Primäradressen wird 
im Text-, List- oder Grafikmodus 
ausgedruckt. 


KFC-Super ist eine Alternative zu 
bisherigen Basicerweiterungen, aller- 
dings wird der freie Speicherplatz um ca. 
8 KByte reduziert (30719 Bytes free). 
Die zusätzlichen Befehle sind eine tolle 
Hilfe für Anwender, mit dem eingebauten 
Maschinensprache-Monitor wird KFC- 
Super zur Kompakterweiterung. 


Befehlsübersicht: 

AUTO: Automatisches Numerieren, Vor- 
gaben möglich. 

RENUM: Automatisches Umnumerieren, 
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Toolkit und Monitor im Eprom 


Vorgaben möglich. 

DEL: Löschen "von Basic-Zeilen oder 
Zeilen-Gruppen. 

TRACE: Zeilennummern-Anzeige beim 
Programmablauf. 
FIND: Suchen 
Begriffen. 
DUMP: Anzeige von Variablen und ihren 
Werten. 

HELP: Anzeige der Stelle, an der ein Pro- 
grammfehler vorkam. 

OLD: Rettet nach einem NEW oder 
RESET das BasicProgramm. 

CATALOG: Zeigt Disk-Verzeichnis ohne 
Programm-Zerstörung. 

STATUS: Anzeige einer Floppy-Fehler- 
meldung. 

DLOAD: Programm von Diskette laden. 
DVERIFY: Programm von Diskette 
vergleichen. 

DMERGE: Programm von Diskette an be- 
stehendes Programm anhängen. 

DSAVE: Programm auf Diskette spei- 
chern. 

DISK (di): Vereinfachte Befehlsübergabe 
in die Floppy. 

di“: Floppy-Gerät initialisieren. 
dl“V’: Diskette bereinigen (Collect). 
dl“ N:NAME,ID’”: Diskette neu formatie- 
ren mit ID. 

di“ N:NAME”: Diskette neu formatieren 
ohne ID. 

dl“‘S: NAME”: Programm NAME wird auf 
der Diskette gelöscht. 

dl“ R:N= A”: Programm A wird in N 
umbenannt. 

di“G:N= A”: Programm A wird als N auf 
die gleiche Diskette kopiert. 

PUT: Schnelles SAVE auf Kassette (mit 
VC SUPER 20 kompatibel). 

GET: Schnelles LOAD von Kassette (mit 
VC SUPER 20 kompatibel). 

COMP: Schnelles VERIFY von 
Kassette. 

MERGE: Programm von Kassette anhän- 
gen (im Schnellmodus). 

PAUSE: SHIFT-Taste hält Listing oder 
Programm-Ablauf an. 

REPEAT: Schaltet REPEAT nach OFF 
wieder ein. 

ESC: Aktivieren einer ESCAPE-Taste. 
OFF: Schaltet PAUSE, REPEAT und 
ESC aus. 

MMON: Maschinensprache-Monitor (4 
K) einschalten. 


Compute mib 


nach Zeichen und 


MOVE: Programm aus dem $9000 ROM- 
Bereich auf $C000 kopieren. 

VIEW: Speicherbelegung und ihre Auftei- 
lung sind angezeigt. = 
ORDER: Alle‘VC SUPER’-Befehle werden 
angezeigt. 

ORDER*: Alle BASIC-Befehle werden 
angezeigt. 

KILL: Schaltet VC-Super aus. 


Der Maschinensprach- 
Monitor 

Der Befehl MMON oder SYS 36864 
startet den Maschinensprach-Monitor 
im Adreßbereich $9000-9FFF. 
Außer den üblichen Maschinensprachbe- 
fehlen beeinhaltet dieser Monitor noch 
eine SPRITES-Editierroutine. 
Alle Darstellungen von Speicherberei- 
chen lassen sich mit Hilfe des Cursor ver- 
schieben, die Fortsetzung erfolgt am un- 
teren bzw. oberen Bildschirmrand. 
Die Monitorbefehle: 
A: Assemblieren 
B: Bits (Sprite-Edit) 
C: Speicherbereichsinhalte vergleichen 
D: Disassemblieren 
F: Füllen eines Adreßbereichs mit einem 
vorgegebenen Byte 
G: Starten eines MC-Programmes 
H: Durchsuchen eines Adreßbereichs 
nach vorgegebenen Bytes 
L: Laden von Programmen oder Daten 
M: Listen der Speicherinhalte (HEX- 
Ausgabe) 
N: Verschieben eines Adreßbereichs 
R: Anzeigen der Registerinhalte 


S: Abspeichern der Inhalte eines 
Adreßbereichs 

T: Verschieben eines Adreßbereichs im 
Speicher 


X: Rücksprung zum Basic 
# : Umrechnung Dezimal-Hexadezimal 
$: Umrechnung Hexadezimal-Dezimal 


Der Preis für KFC-Super ist mit DM 198,- 
für den C-64 nicht zu hoch, vergleicht 
man Preis und Leistung mit anderen 
Basicerweiterungen. Die offene Platine 
ist zwar nichts für Astheten, KFC-Super 
beseitigt aber viele Schwachstellen der 
C-64, die von Anwendern immer wieder 
beklagt werden. 

Das “KFC-Super”-Steckmodul ist eben- 
falls für den VC-20 erhältlich. (sr) 
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Nachruf auf Olympia 


Go for Gold! 


Tag und Nacht war es in den letzten Wochen aus den Olympia-Berichterstattungen zu hören. Inzwi- 
schen gibt es auch die Olympiade am Heimcomputer, wichtigstes Utensil ist der Joystick. Es gilt jetzt, 
den Medaillensegen zuhause zu empfangen, manche Joystickprofis kommen nur noch zu der lapida- 
ren Feststellung: Wer ist denn schon Carl Lewis? 


Summer Games von Epyx ist eine Olym- 
piade von acht Disziplinen, an der eben- 
soviele Wettkämpfer teilnehmen kön- 
nen. Nach dem Laden der Diskette die er- 
ste Überraschung: 

Da kommt zeichentrickreif ein Fackel- 
läufer und entzündet das olympische 
Feuer, während weiße Friedenstauben 
über den Bildschirm fliegen. Anschlie- 
ßend muß Name und Nationalität eingege- 
ben werden, der C-64 spielt sogar die 
Nationalhymnen. Die Epyx Summer Ga- 
mes sind eröffnet. Als erste Disziplin 


steht der Stabhochsprung an, je 3 Ver- 
suche pro Höhe sind erlaubt. Der Joy- 
stick muß gefühlvoll bewegt werden, um 
das Männchen über die Latte zu ma- 
növrieren. Die Anfangshöhe beträgt 
4,00m; kann aber bis zu einer Höhe von 
6,90m ausgebaut werden. Bestechend 
hier, wie in allen übrigen Disziplinen, der 
Bewegungsablauf und die grafischen 
Raffinessen. Der Realitätsbezug ist ohne 
Zweifel vorhanden. Dem Sieger einer je- 
den Disziplin winkt als Belohnung die 
Nationalhymne. Jetzt geht's auf den 
Sprungturm, als nächster Wettkampf steht 
das Kunstspringen auf dem Programm. 
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Mit dem Joystick wird ein Mädchen 
durch die Luft bewegt, aber aufgepaßt: 
Wie im echten Wettkampf, muß auch hier 
die Eintauchphase korrekt sein, d.h. es 
darf nur wenig Wasser spritzen. An- 
schließend gibt es für jeden Sprung Punkte 
von den Kampfrichtern, die mit dem 


Schwierigkeitsgrad des Sprunges multipli- 
ziert werden. Blitzschnelles Umdenken 
auf andere Disziplinen ist gefragt, aller- 
dings dauert das Nachladen einer Diszi- 
plin etwa eine Minute. Gelegenheit zur Er- 
holung ist also reichlich. Der 4x400m 
Staffellauf steht auf dem Programm, hier 
kommt es auf Ausdauer an. Ein Kon- 
ditionsbalken am unteren  Bild- 
schirmrand bestätigt den jeweiligen Zu- 
stand des Läufers. Ist also keine.Energie 
mehr vorhanden, muß das “Gas” wegge- 
nommen werden. Anders dagegen beim 
100m Sprint. Hier wird die Kondition des 
Joystick-Armes gefordert, nur durch 
schnellstmögliches Hin- und Herbewe- 
gen des Joysticks ist der Läufer in das 
Ziel zu bringen. Dagegen erfordert der 
Umgang mit dem Steuerknüppel beim 
Pferdsprung wieder Geschick. Die Turne- 
rin muß heil wieder auf dem Boden landen 
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um gute Punkte zu erreichen. An- 
schließend geht's wieder in das Wasser, 
die 4x400m Freistil-Staffel steht zum 
Start. Auch hier eine hervorragende Mi- 
schung aus Grafik und Bewegung, die 
Schwimmer gleiten regelrecht über das 
Wasser. Das aber auch nur solange, wie 
der Feuerknopf des Joysticks in regel- 
mäßigen Abständen betätigt wird. Das 
Drücken des Feuerknopfes simuliert hier 
das Atmen des Schwimmers. Nachdem 
die Staffelwettbewerbe beendet wurden, 
geht's in die Einzeldisziplin des 100 m 
Freistilfinales. Der abschließende Wett- 
bewerb ist das Tontaubenschießen. Zu- 
gleich die letzte Gelegenheit, noch 
Punkte im Kampf um die Goldmedaille 
wettzumachen. Insgesamt 25 Schuß 
sind auf die fliegenden Scheiben abzuge- 
ben, dann wird es Ernst. Es folgt die Auf- 
rechnung der Ergebnisse aller Diszipli- 
nen mit Medaillenspiegel. Dem ver- 
dienten Sieger erklingt die National- 
hymne, die Summer Games sind vorüber. 
Aber hier ist Kritik über die Leistung der 
Sportler fehl am Platze, dabei sein ist 
schließlich alles. 

(sr) 
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Man nennt sie die “Könige” der Athleten. In zehn verschiedenen Disziplinen wird der beste Allround- 
sportler ermittelt, wobei in jeder einzelnen Höchstleistungen vollbracht werden. Decathlon von Acti- 


vision ist der Zehnkampf am Computer. Wie schon bei Summer Games wird die Wohnstube zur 
Sportarena. 


3.) Kugelstoßen 


Bis zu 4 Teilnehmer können bei Decath- 5.) 400m Lauf 
Ion an den Start gehen und den Kampf um 
die Punkte aufnehmen. Wieder einmal 
übernimmt der Joystick die Fortbewe- 
gung der Sportler. Empfehlenswert ist al- 
lerdings ein stabiler Joystick, denn durch 
alle Disziplinen wird dieser auf eine harte 
Probe gestellt. Die Zehnkämpfer sind nur 
durch blitzartiges Hin- und Herbewegen 
des Steuerknüppels zu bewegen, je 
schneller desto besser. Auch den Spie- 
lern werden Höchstleistungen abver- 
langt, Ausdauer ist Trumpf. Als erster 
Wettkampf steht der 100 m Sprint an, je 
2 Teilnehmer laufen gegeneinander. 
Sollte sich kein Mitstreiter finden, über- | 4.) Hochsprung 
nimmt der Computer den gegnerischen 
Läufer. Die erreichte Zeit wird in Punkte 
umgerechnet und von Disziplin zu Diszip- 
lin aufaddiert. Grafische und akustische 
Sonderleistungen sind bei Decathlon 
nicht vorhanden, der Reiz liegt eindeutig 
in der Joystickarbeit. Interessant eben- 
falls einige Disziplinen, die es bei ver- 
gleichbaren Programmen bisher noch 
nicht gab. So wird anschließend zum 
Weitsprung angetreten. Je mehr der 
Steuerknüppel bearbeitet wird, desto 
größer ist schließlich die erreichte 
Weite. 

Die übrigen Disziplinen in ihrer Reihen- 
folge, die übrigens dem Original- 
Wettkampf entsprechen: 
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eoH Femew 


F ACHTUNG! Be 
2 = Außergewöhnliche Spiele und Pro- 

Bei uns finden Sie gramme, z.B. Flugsimulatoren, Dateı- 

programme, Krankheitschagnose, 


fast alles für Ihren Bıorhythmus, Lottoberechnung und 


Spiele Spiele Spiele 


VC -20/ 64 Prüfen Sie unser Angebot 


der Tiefstpreise. 


Schnell das neue Spitzeninfo 
anfordem, für 2 DM ın Bnefmarken 
Garantiert 24 Std. Infoversand. 9 


Hardware: 
Speichererweiterungen 8K-64K RAM, 
Moduladapter 2/3/5-fach, Recorder- 
interface, Schnell-Save Module, Tool- 
kıtmodule, 40/80 Zeichenkarten, 
Epromprogrammierer, Epromkarten, 
PIO IN/OUT Module, Interface, Joy- 
sticks, Paddle, und...und...und... 


Zubehör: 


Kassetten, Disketten, Staubschutz- 


3 x dufte Spiele, 
Tips und Tricks, News, 
Berichte, Software-News, 
in: Homecomputer, GPU 
und Computerposter, 

das Superposter mit dem 
Spiel auf der Rückseite. 
Jeden Monat neu bei & 
Ihrem Zeitschriftenhändler..:. 


Roeske Verlag 
Fuldaer Straße 6 
3440 Eschwege 


8.) Stabhochsprung 
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Händleranfragen erwünscht. 


r,\ k Rotdomweg 15 
1000 Berlın 45 
hauben, Bücher, Bausätze, Resettaster, mukra = 
Alle Stecker, Bauteile, und...und.. 


EPSON RX-80 
EPSON RX-80 F/T 
EPSON FX-8) 
EPSON FX-1%0 


Besuch! 


9.) Speerwerfen 
10.)1.500m Lauf 


Die Wurf- und Sprungsdisziplinen sind 
dabei die einfachsten und bei weitem 
nicht so schweißtreibend wie die Lauf- 
übungen. Sie erfordern nur einen kurzen 
Anlauf und rechtzeitigen Druck auf die 
Feuertaste. Spätestens nach dem 400m 
Lauf benötigt der Joystickarm eine kleine 
Erholung, für Ungeübte ist die Gefahr ei- 
nes Krampfes sehr hoch. Der wiederrum 
kostet im Wettstreit um den Sieg wert- 
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FACE an einen Epson-Drucker anschließen. 


Unser VC-EPSON-INTERFACE Best.-Nr. 
CBM-Grafikzeichen in vierzig verschiedenen Schriftarten und 
-breiten * HARDCOPY mit SIMON's BASIC sauber und 
hochauflösend * hat einen eingebauten Selbsttest * einen 2K 
Pufferspeicher * einen eigenen Z80-Mikroprozessor * zwei 
IEC-Buchsen (wie Floppy) * IEC-Adresse einstellbar * keine 
Modifikation des Druckers * definierbarer Zeichensatz (FX) 
bleibt frei * ein Interface für C-64, VC-20 an alle Epson-Drucker * 
Lieferung komplett mit DIN-Verbindungskabel und ausführlicher 
Bedienungsanleitung. 


8422 bringt alle 


mit VC-Interface Best.-Nr. 8422 DM 1330, - 
mit VC-Interface Best.-Nr. 8422 DM 1502, — 
mit VC-Interface Best.-Nr. 8422 DM 1889, — 
mit VC-Interface Best.-Nr. 8422 DM 2362, — 


Preise inkl. MwSt., Katalog 1/84 kostenlos. 


Besuchen Sie unsere Ausstellung in der Rhein-Mosel-Halle in 
Koblenz vom 29. Okt. bis 31. Okt. 84. Wir freuen uns auf Ihren 


GÖRLITZ COMPUTERBAU -Postf. 852 - 5400 Koblenz - Tel. 0261-27500 


t volle Punkte. Wie auch im “echten” 


Wettkampf ist der abschließende 1.500 
m Lauf die von allen gefürchteste Diszip- 
lin. Und das mit Recht. Wer sich bis jetzt 
noch nicht ausgetobt hat, der ist späte- 
stens nach diesem Lauf völlig geschafft. 
Die 1.500 m scheinen endlos lang, die 
Kraft muß eingeteilt werden. Wer am An- 
fang zu schnell angeht, wird die Nase am 
Schluß nicht mehr vorn haben. Die heiße- 
ste Phase des Rennens sind die letzten 
200m, die im Sprinttempo zurückgelegt 
werden. Diese Disziplin ist zugleich auch 
die härteste Bewährungsprobe für den 
Joystick. Nicht zuletzt wegen der aktiven 
Teilnahme der Spieler kann dieses Pro- 
gramm als gut gelungen gelten, schon 
das Zuschauen macht Spaß. Zu einem er- 
neuten Durchgang gehört dann aller- 
dings schon eine Bärenkondition und 
vielleicht sogar ein neuer Joystick. Et- 
was unübersichtlich schien uns die 
aktuelle Ergebnisanzeige. Nur die er- 
reichten Punkte werden nach Abschluß 
jeder Disziplin angezeigt, die Zwischen- 
und Bestergebnisse muß man sich ent- 
weder notieren oder merken. Das Pro- 
gramm wird in einem Stück in den Rech- 
ner geladen, es entstehen somit keine 
Wartezeiten zwischen den einzelnen Dis- 
ziplinen. Durchgehender Spaß ist 
gewährleistet!! 
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Arbeitsgemeinschaft Software-Anwender 


In den vergangenen Monaten 
ist ein Thema immer wieder in 
den verschiedenen Fach- 
zeitschriten aufgetaucht, 
daß zur Zeit auch im privaten 
Bereich sehr viel Auf- 
merksamkeit erregt. 


Es handelt sich dabei um die 
Frage, was der Einzelne mit 
den Programmen für seinen 
Computer anfangen kann 
bzw. ob diese Software ge- 
tauscht, verkauft oder kopiert 
werden darf. Die Rechts- 
unsicherheit ist inzwischen 
so groß geworden, daß nie- 
mand eine konkrete Stellung- 
nahme abgeben kann. 

Händler, die sich durch sog. 
“Raubkopierer” geschädigt 
fühlen, beantragen wahllos 
Strafanzeigen und treffen da- 
mit fast immer die Falschen. 


Bei den Betroffenen, die 
eventuell sogar Besuch von 
der Kriminalpolizei erhalten, 
ist in vielen Fällen die Panik- 
stimmung so groß, daß sie so- 
gar mit dem Gedanken spie- 
len, ihr Hobby aufzugeben 
und den Computer zu verkau- 
fen. Daß sich die Händler da- 
mit selbst schädigen, ist of- 
fensichtlich. Auch sind be- 
reits Fälle vorgekommen, bei 
denen eindeutig eine betrü- 
gerische Absicht zugrunde 
gelegen hat. Erst vor einigen 
Wochen hat eine Pseudo- 
Firma aus Berlin unter Aus- 
nutzung der allgemeinen Un- 
sicherheit an Kleinanzeigen- 
Inserenten Abmahnungen 
verschickt, um “auf die Schnel- 
le” Geld zu verdienen. 
Durch solche Machen- 
schaften erhält die Com- 


puterei einen schlechten Ruf, 
der im Endeffekt alle Betrof- 
fenen schädigt. 

Da der einzelne Computer- 
freund (es handelt sich ja in 
der Regel um Jugendliche) 
kaum in der Lage ist, hier 
Klarheit zu schaffen, soll die 
ARBEITSGEMEINSCHAFT 
SOFTWARE-ANWENDER ge- 
gründet werden. Ziel dieser 
AG soll sein: 


1. Klärung der Rechtslage 
durch Kontakte mit Anwälten, 
Händlern und auch Zeit- 
schriften etc. 

2. Information, Beratung und 
Aufklärung der Mitglieder und 
der Öffentlichkeit. 

3. Erfahrungs- und Gedanken- 
austausch zu diesem Thema, 
daß alle betrifft. 

Die ersten Verbindungen sind 


bereits geknüpft. Durch in- 
tensiven Arbeitseinsatz soll 
schon in kürzester Zeit eine 
solide Grundlage für die 
weitere Tätigkeit der AG ge- 
schaffen werden. 

Wer sich für dieses Produkt 
interessiert oder der Arbeits- 
gemeinschaft beitreten will, 
kann sich an 


ROLF KNORRE 
POSTFACH 200102 
5600 WUPPERTAL 


wenden. Jeder Interessent er- 
hält dort weitere Informatio- 
nen (bitte einen frankierten 
Rückumschlag beilegen). 

Die Arbeitsgemeinschaft ist 
für jeden wichtig, der Soft- 
ware kauft, verkauft, kopiert 
und tauscht etc., unabhängig 


vom Computertyp. 
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R ten Zeit Ihren Fernseher einschalten kön- SW3 
Comp uter im Fernsehen nen und nichts wesentliches versäumen. ee =. 
Ein toller GOMPUTE MIT...-Service — denn Was sind Mikroprozessoren, 
Liebe Freunde von GOMPUTE MIT....! COMPUTE MIT...-Leser wissen Bescheid wo werden sie eingesetzt? 
und können mitreden 1. Von der Dampfmaschine 
» zum Chip 
Alles, was sich im Fernsehen mit dem 24.09.84 ZDF 28.09.84 SWw3 
unerschöpflichen Thema Homecomputer Mikroprozessoren (1) 16.04 h REM: 21.15h 
heschäftigt, nennen wir Ihnen jeweils an 01.10.84 iso 
dieser Stelle, damit Sie genau zur rech- Mikroprozessoren (2) 1604 Dre 


WERSIBOARD FrHetr ein Son 
fl H KR Ei ur m RR a Be EN COMPUTER 
It SAL EC IE HE ARE ZU MUSIC 


FÜR COMMODORE C 64/5X 64 


Das WERSIBOARD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodore 
Design, einem Interface-Modul und zugehöriger Software. Gemeinsam mit dem 
Commodore VC 64 entsteht ein Musikinstrument mit bemerkenswerten Fähigkeiten. 


EINFÜHRUNGSPREIS 


Komplett-Paket bestehend aus: 
KEYBOARD SOFTWARE 4 j- 
— 49 Tasten, 4 Oktaven C-C — auf 5%'' Diskette DM 
— PROFIFORMAT — Programm MONO 64 — inkl. MWSt./zuzgl. 
— Gehäuse aus stoßfestem monophoner Synthesizer Versandselbstkosten 
Kunststoff im — Programm POLY 64 — 
Commodore-Design polyphones Keyboard 
— Interface-Modul — Klangfarben direkt am PC 
mit Verbindungskabel, veränderbar 
ee 


Orgel- und Plano-Bausitzg' Industriestraße : 5401 Halsenbach 
Telefon (06747) 7131 : Telex 42323 


DUERSI 


BESTELL-COUPON abtrennen und senden an. WERSI electronic. Industriestraße. 5401 Halsenbach. Telefon 08747/7131 
he bestelle ich/wir zu Ihren Allgemeinen Verkaufs-, Lieferungs-, Zahlungs und Servicebedingungen zur sofortigen 


WERSIBOARD MUSIC 64 Einzelpreis DM 498. -GesampresD’M_______ 
cr Personal Computer Music zuzüglich Versandselbstkosten 
Ni OD per beigefügten Scheck 


Zahlungerfolgt: D per lachnahme OD per Vorauskasse 
O Übersenden Sie mir vor Lieferung die Rechnung D Überweisungsbeleg ist beigefügt 
P 1.77 72 »BSERUGBRS BER 2 PERBEEERENEE Er rn 
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Noch heute bestellen! 


Ort/Datum Unterschrift 
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am besten einmal. 


Zeile 10: 

Zunächst wird durch 
CHR$(147) der Bildschirm 
freigemacht. Das erhöht die 
Übersichtlichkeit, bringt also 
ein wenig Komfort ins Spiel. 
Danach lasse ich den Rech- 
ner nach der Anzahl der in 
Rechnung zu stellenden 
Artikel fragen: Diese Angabe 
ist für die Reservierung des 
Speicherplatzes wichtig. An- 
hand der Variablen A wird die 
Matrix X(B,1) DIMensioniert, 
die die Angaben bezüglich 
Warenart und Einzelpreisen 
aufnehmen soll. 

Für die nächsten Eingaben lö- 
schen wir erneut das 
Display. 


Zeile 20: 

Variable K für Kundennum- 
mer wird angefordert: Mit 
dem erhaltenen Wert sucht 
der Computer aus unserer 
Kunden-Kartei den jeweiligen 


Rechnungsempfänger her- 
aus. 

Auch nach dieser Eingabe 
wird der Bildschirm ge- 
löscht. 

Zeile 30-33: 


Hier liegt die erste Schleife 
unseres Rechnungsprogram- 
mes. Bis zur angegebenen 
Zahl der berechneten Waren- 
posten fragt der Rechner nach 
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Artikelnummer und Einzel- 
preis. Zeile 32 leistet dabei 
erste eigentliche "Rechenar- 
beit”, indem Gesamtwaren- 
wert (G), Mehrwertsteuer (M), 
Endbetrag (E) und Skonto (S) 
ermittelt werden. Dabei habe 
ich die Schreibweise 

M=G*14/100 bzw. 

S=*3/100 gekürzt. 


Zeile 40-44: 

schreiben den Rech- 
nungskopf mit Adresse des 
durch K ermittelten Kunden 
unseres Computer-Ladens. 


Zeile 50-59: 

Unsere zweite Schleife dient 
der Umsetzung der Artikel- 
Nummern in Klartext, damit 
der Kunde sofort weiß, für 
welche Ware er zahlen soll. 
Dabei steht in Zeile 52 eine 
recht interessante Anwei- 
sung: der Sprung (GOTO) er- 
folgt nämlich nicht nach einer 
festen Adresse, sondern 
hängt direkt von der Waren- 
nummer ab. 

Die Zeilen 54 bis 57 definie- 
ren die Stringvariable N$, 
die für den ausgedruckten 
Text verantwortlich ist. Dabei 
sind in den Zeilen 54,55 und 
56 die GOTO’s wichtig, um 
nach Wahl des Textes sofort 
für den Ausdruck zu sorgen. 
Nehmen wir an, in Zeile 54 


Logik im Basic-Programm 


Wie man Systematik in sein Selbstgestricktes bringt 


So, da wollen wir uns mal die Hausaufgabe vom letzten Mal vornehmen: Haben Sie an einer Ver- 
besserung unseres "Rechnung-Schreib-Programmes” gearbeitet? Prima! Dann vergleichen wir 


Ich habe bei meiner Überarbeitung versucht, schon so etwas wie Systematik ins Konzept zu 
kriegen. Und um mein Vorgehen optisch zu verdeutlichen, habe ich die funktions- und sinnbe- 
dingt zusammengehörenden Zeilen zu Gruppen verbunden. Das ermöglicht es mir nun, den Pro- 
grammaufbau zu erläutern: 


stände lediglich N$="VC20”, 
so ginge der Rechner zur 
nächsten Zeile weiter, würde 
'VC20’ durch 'C-64', 'C-64' 
wiederum durch '1541' und 
letztlich 1541’ durch '****' 
ersetzen. 

In 57 darf das GOTO wegfal- 
len, weil nun (wie jeder ein- 
sehen dürfte) nichts mehr 
schiefgehen kann. 

Zeile 58 gibt Warenbezeich- 
nung und jeweiligen Einzel- 
preis in DM aus. 


Zeile 60-68: 

Hier erfährt der Kunde, was er 
zu bezahlen hat: Ich nenne 
ihm zunächst den Gesamt- 
Warenwert (also die Summe 
aller Einzelpreise), dann den 
Endbetrag (schließlich will 
ich die Mehrwertsteuer nicht 
selbst tragen) sowie als An- 
reiz zum schnellen Überwei- 
sen die Angabe des Barzah- 
lungsrabattes (Skonto 3%). 


Zeile 70-71: 

liefert die Kontoverbindung, 
die ich gegenüber der langat- 
migen Erstfassung ein wenig 
gestrafft habe. Kontonummer 
und Bankleitzahl müssen 
genügen. 


Zeile 80: 
Die END-Anweisung wird 
dann nötig, wenn sich entwe- 
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der weitere Programme im Ar- 
beitsspeicher des Computers 
befinden oder aber Unterpro- 
gramme folgen, in die nicht 
wahllos hineingefahren wer- 
den soll. In unserem Fall 
würde ohne END die Kunden- 
datei zumindest teilweise 
ausgedruckt, was nicht unbe- 
dingt erwünscht ist. 


Zeile 100-138: 

beinhaltet die. gerade er- 
wähnte Kartei. Unsere Kun- 
den Möglich, Abernicht und 
Gewollt (die Familiennamen 
beziehen sich, wie mancher ge- 
merkt haben mag, auf 
eventuelle Ähnlichkeiten mit 
lebenden Personen) sind Ih- 
nen aus der letzen Folge 
sicher noch ein Begriff. Zeile 
100 nutzt wieder die Möglich- 
keit des "bedingten Sprun- 
ges”, wie er bereits in Zeile 
52 behandelt wurde. 


Zeile 140: 

ist ein Miniatur-Unterpro- 
gramm zum Uhnterstreichen. 
Es wird zweimal (Zeile 44 
und 60) angesprungen. 


Wie Sie sehen, wird die 
Struktur des relativ kurzen 
und einfachen Programmes 
besonders deutlich durch die 
0.9. Funktionsgruppen sowie 
die strikt ans Programm- 
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Ende verlegten Subroutinen. 


10 PRINT CHR$(147):1NPUT "ANZ ARTIKEL”; A:B=A-1:DIM x(B,1):PRINT CHR$(147) 


20 INPUT "KDN-NR ";K: PRINT CHR$(147) 


30 FOR I=1TOA 

31 B=I-1: PRINT 1;”. ARTIKEL”: INPUT X(B,0): PRINT "E-PREIS”:INPUT X(B,1) 
32 G=6+X(B,1):M=6*.14:E=G+M:S=E*.03 

33 PRINT CHRS$(147): NEXT I 


40 PRINT "RECHNUNG FUER” Das wär's für heute: In der kommenden Woche werden wir 
41 PRINT”” uns mit ein paar neuen Befehlen und dem Ka ”Ent- 
42 PRINT "HERRN/FRAU/FRL": GOSUB 100 ur dene unterhalten. karian, 


43 PRINT "ART","E-PREIS/DM 


44 GOSUB 140 Tschüß bis dann ... 


(sk) 


SR 


ist gesund 


Ihnen hilft’s, Frust am Computern 
erst gar nicht aufkommen zu 

lassen - uns istes nur recht, 

weil wir auf diese Art und Weise 

eine "Compute mit” machen 

können, 
die für Sie das Optimale 
aus Ihrem Hobby heraus 
und in Ihren Commodore 

herein holt ... 


50 FORI=1T0OA 

51 B= 1-1 

52 ON X(B,0) GOTO 54,55,56 
53 GOTO 57 

54 N$="VC20”:GOTO 58 

55 N$="C-64":G0T0 58 

56 N$="1541":G0T0 58 

57 NIE 

58 PRINT N$,X(B,1) 

59 NEXTI 


60 PRINT” ":GOSUB 140 

61 PRINT "GES.-WW”,G 

62 PRINT” " 

63 PRINT "RECH.-BETRAG” 

64 PRINT "INKL 14% MWST".E 

65 PRINT" " 

66 PRINT "B.ZAHL.INNERHALB 8 TAGEN” 
67 PRINT "SKONTO 3% (=",S;")" 

68 PRINT" " 


70 PRINT "UEBERWEISUNG AUF PGIROKTO” 
71 PRINT "NR 4289 31-104 (BLZ 100 100 10) 


80 END 


100 ON K GOTO 110,120,130 

101 PRINT”NICHT IN DER DATEI” 
102 GOTO 138 

110 PRINT”FRITZ MOEGLICH” 

111 PRINT"TANNENWEG 2” 

112 PRINT"9191 DINGSDA 1" 
113 GOTO 138 

120 PRINT”"SUSANNE ABERNICHT" 
121 PRINT"POSTFACH" 

122 PRINT”9100 GROSSTADT 50" 
123 GOTO 138 

130 PRINT”BRIGITTE GEWOLLT” 
134 PRINT”"MARKTSTRASSE 17" 
132 ARINT”’9567 DADORF” 

138 PRINT” "RETURN 


Schreiben Sie also regelmäßig an Ihre 
CM - Redaktion ! 
Frisch nach der Goldenen Regel : 
Dem Sie wit uus iu el Ki 
Sagen fie es Br je 
and Sie’s weht, 
Sasım fie es hüns ! 


a0 PEINT= set era "RETURN 
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IEEE-488 BUS" 


C64/IEEE-488 ee 
Steckmodul 


Dieser ausgereifte, weltweit erprobte IEEE-488-Modul eröff- 
net dem Commodore 64 über seinen parallelen Ausgang 
ungeahnte Einsatzmöglichkeiten wie: 

große, IEEE-kompatible CBM-Peripherie am C-64, simulta- 
nen (seriell - VC/paralleler - IEEE) Datenverkehr. Konflikt- 
freie, speicherverschiebliche Modulsoftware. Im Einsatz bei- 
spielsweise in Schulen ermöglicht der IEEE-488-Steck- 
modul problemlose Mehrbenutzersysteme am IEC-Bus wie 
auch durch die rationell genutzte Peripherie: z.B. zahlreiche 
Computer an einer Doppelfloppy. - 
In der Industrie bietet der IEEE-488-Steckmodul I: TOO 
die Möglichkeit für preisgünstige IEC-Meß-/Steuersysteme  BETR 

mit dem Commodore 64 als Controller. Zu diesem Modul wird BEINESSONGE 2 
ein Betriebshandbuch geliefert, in dem Beschreibungen zu 
fast sämtlichen Anwendungsfällen mit Programmbeispielen, 
Belegungstabellen, Angaben zum erforderlichen Kabel- und Steckermaterial, Literatur . 
etc. aufgeführt sind. Zusätzlich können zum IEEE-488-Steckmodul Anwendungs- iu 
hilfen wie u.a. Disketten mit Lesekennzeichen, Utility-Disketten usw. bezogen werden. 


MNELLLLLT 


ILNDAOD LA 


te-wi Verlag GmbH 
IEEE-Steckmodul für Commodore 64 Theo-Prosel-Weg I 


einschließlich Betriebshandbuch DM 239,-—— inkl. MwSt. BOORMUNEHER SR 


NEU! C-64 Computerhandbuch 
Ein Handbuch für jeden Erfahrungsstand: von 
der ersten Begegnung bis zum professionellen 
Einsatz des COMMODORE 64 bzw. 1541. Das 
Werk ist sehr bildreich und bietet somit eine 
schnelle Übersicht - als echtes Nachschlage- 
werk werden Sie es stets in der Nähe Ihres 
Computers finden. 

Raeto West. ca. 400 Seiten. Softcover. 

DM 56.--. 4. Qu. 84 


NEU! C-64 Akustik und Graphik 
Ein planvoller Lehrgang - keine Beispielsamm- 
lung - in anschaulichem Stil - daher für jedes 
Alter. Dieses Werk eröffnet dem C-64-Benutzer 
die Welt der Graphiken und Klangbilder. Es ent- 
hält Programmbibliotheken und wird abgerun- 
det durch zahlreiche Anhänge. 

John Anderson. ca. 200 Seiten. Softcover. 


DM 49.--, 4. Qu. 84 


CBM Computer Handbuch 
Dieses unentbehrliche Nachschlagewerk bietet 
eine wahre Fundgrube - mit einer schrittweisen 
Einführung bis hin zur Darstellung aller profes- 
sionellen Möglichkeiten dieses beliebten Com- 
puters. 

Osborne/Danahue, 544 Seiten. Softcover. 

DM 59.-- 


NEU! LOGO Computersprache für Kinder 
und Eltern 

Dieses Buch beweist: Jeder kann program- 
mieren. LOGO ist die Computersprache für 
Eltern und Kinder. Nicht umsonst wurde dieser 
Titel zum „Buch des Jahres 1983“ in den USA. 
LOGO ist das Ergebnis der Erforschung 
menschlicher Intelligenz: entwickelt von einem 
Pädagogen und Mathematikprofessor. LOGO 
ist die erste Computersprache, die bewußt Stra- 
tegien menschlichen Denkens dient. 

6502 - Programmieren in Assembler Daniel Watt. ca. 400 Seiten. Softcover, 

Dieses Buch behandelt ausführlich die Assem- DM 59.--. 4. Qu. 84 
blersprachen-Programmierung für den weitver- 


breiteten Mikroprozessor 6502. Er steckt auch ee EU OT N a a a 
in Ihrem C-64. Mn 
Tr ie 704 Seiten, Softcover. | Hiermit bestelle(n) ich (wir): 
| 
| 
Der Sensible C-64 4.0.84, DM 29,80 | 
CP/M und WordStar DM 29,80 | 
C-64 Programmsammlung 4.Q.84, DM 29,80 Bee ee nn 
VisiCalc (mit CBM Diskette) DM 79-- | Datum Unterschrift 
„ 77 BASIC Programme DM 39,-- | 
&  Mikrocomputer-Grundwissen DM 36,-- IN en 
e C-64 Computer für Kinder 4.Q.84, DM 29,80 | ame/E la 
VC20 Computer für Kinder 4.Q.84, DM 29,80 
| Straße/Postfach 


Ort 


Wie Sie sicher festgestellt ha- 
ben, ist im 2. Assemblerkurs 
ein Teil der Schere zum Opfer 
gefallen — was wir sehr be- 
dauern und fahren gleich mit 
dem 3. Teil fort. 


All diese Bestandteile sind im 
Computer miteinander ver- 
bunden. Diese Verbindung 
nennt man Busse. Von diesem 
gibt es mehrere, die unter- 
schiedliche Aufgaben erfül- 
len: 

1) zur Datenübertragung - 
der Datenbus 

2) zur Adressierung der ein- 
zelnen Bauteile - der 
Adressbus 

3) der Steuerbus, über den die 
CPU die anderen Einheiten 
steuert. 


Das Herzstück des Com- 
puters ist die CPU (Central 
Processing Unit), die Zentra- 
leinheit. Zur Erfüllung ihrer 
Aufgaben verfügt sie über un- 
terschiedliche Funktionseinhei- 
ten (Register), die zur Adres- 
sierung, zur Steuerung und 
zur Rechnerei nötig sind. Der 
65XX Prozessor besitzt fol- 
gende Register: 

PC -Befehlszähler (Program 
Counter) 

$ -Stapelzeiger (Stack Poin- 
ter) 

A -Rechenregister (Akkumu- 
lator) 

K,Y -Indexregister zur Tabel- 
lenverwaltung bzw. indi- 
zierten Adressierung 

P -Statusregister, welches 
die Ergebnisse der einzelnen 
Operationen anzeigt. 

Die Verwendung dieser Regi- 
ster werden wir in den folgen- 
den “Compute mit"-Ausgaben 
anhand von Beispielen kennen- 
lernen. 

Bevor wir mit unserem Kurs 
fortfahren, möchten wir Ihnen 
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Assemblerkurs 


Teil 3 


2 Programme vorstellen, die 
für das Arbeiten in Assembler 
unentbehrlich sind. 


Man beginnt mit dem Einla- 
den des Editors. Nach dem 
Starten erhält man eine Ta- 
belle mit den Befehlen, die der 
Editor kennt und den mög- 
lichen Parametern. 

Es genügt, wenn die inversen 
Buchstaben eingegeben wer- 
den und auch Blanks sind 
optional. Man kann aber auch 
den gesamten Befehl einge- 
ben oder Teile davon, sofern 
die signifikanten Buchstaben 
am Anfang enthalten sind. 


ADD 

Um ein Assembler-Programm 
einzugeben, benutzt man den 
Befehl A(DD) (Anm.: die 
Buchstaben in Klammern 
sind optional). 

Dann erscheint eine “1” mit 
einem inversen Blank da- 
hinter. Dies ist der Cursor, 
während die “1” die laufende 
Zeilennummer des Befehls 
ist. Wenn man einmal einen 
Befehl unter einer be- 
stimmten Zeilennummer ein- 
gegeben hat, so heißt dies 
nicht, daß zu dieser Zeilen- 
nummer immer der eingege- 
bene Befehl gehört, denn man 
kann auch noch nachträglich 
Befehle einfügen, und dabei 
ändern sich dann ent- 
sprechend die Nummern der 
folgenden Befehle. 

ADD heißt immer Anhängen 
von weiteren Befehlen. Wenn 
der Speicher leer ist, dann 
lautet die “nächste” Zeile 1, 
wenn bereits 43 Zeilen vor- 
handen sind, dann ist 44 die 
Zeile, in die nach ADD ge- 
schrieben wird. 


INSERT 
Hat man irgendwo im 
Assembler-Listing einen oder 


mehrere Befehle vergessen 
nachzutragen, so benutzt 
man den Befehl I(INSERT). 
Und zwar gibt man nach dem 
Befehlswort die Zeilennum- 
mer an, hinter der die Befehle 
eingeschoben werden sollen. 
Fehlen Befehle direkt am An- 
fang, so wird nur der Befehl 
ohne Parameter eingegeben 
und die Zeilen werden solange 
eingeschoben, bis eine neue 
Editoranweisung dieses been- 
det. 


DELETE 

Sind Assembler-Zeilen über- 
flüssig geworden, so kann 
man sie mit D(ELETE) entfer- 
nen. Wie bei dem BASIC- 
Befehl LIST kann man hinter 
dem Delete-Befehl entweder 
nur eine Zeilennummer einge- 
ben, wenn man nur eine Zeile 
löschen will; oder z.B.“ D- 
5” eingeben, wenn mandie er- 
sten 5 Zeilen löschen möchte; 
oder “D5-" wenn alle Zeilen 
ab Nummer 5 gelöscht wer- 
den sollen; oder einfach “D", 
um sämtliche Zeilen zu 
löschen. 

Damit man nicht aus Versehen 
Zeilen entfernt, die man noch 
benötigt, wird zur Sicherheit 
noch einmal gefragt, ob man 
auch sicher ist. Die Frage (in 
Englisch) taucht immer dann 
auf, wenn mehr als 10 Zeilen 
gelöscht werden sollen. 


LIST 

Auch bei L(IST) ist die Para- 
meterübergabe wie im BASIC. 
Wird beim Listen die Taste 
“S” gedrückt, so stoppt der 
Editor und erwartet zur 
Fortsetzung einen weiteren 
Tastendruck. Drücken der Ta- 
ste “Q” beendet das Listen 
bevor die letzte Zeilennum- 
mer erreicht ist. 
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EDIT 

Stellt man fest, daß eine Zeile 
falsch eingegeben wurde, So 
kann sie mit dem E(DIT)- 
Befehl korrigiert werden. Die 
Parameterübergabe ist wie 
unter DELETE beschrieben. 
Der Editor listet die zu korri- 
gierende Zeile und setzt den 
Cursor an den Zeilenanfang. 
Diesmal ist es ein “echter 
Cursor” und es zählt, wie von 
CBM gewohnt, alles, was in 
der oder den entsprechenden 
Bildschirmzeilen steht. Des- 
halb kann man nach Durch- 
führen der Korrektur sofort 
“RETURN” drücken, und auch 
der Rest nach dem Cursor wird 
übernommen. Oder nur 
“RETURN”, wenn in der Zeile 
nichts geändert werden soll. 
Auch bei dem EDIT-Befehl 
kann man einfach eine neue 
Editor-Anweisung eingeben, 
wenn man aufhören will, so- 
fern man den Rest der Zeile 
(oder Zeilen) mit Spaces 
löscht. 


COPY 

Wenn man einen Block, den 
man schon eingegeben hat, an 
einer anderen Stelle haben 
möchte, so verwendet man 
den Befehl C(OPY). Direkt 
hinter dem Befehl gibt man 
aber noch keine Parameter 
an. Der Editor fragt diese 
nämlich der Reihe nach ab. Er 
beginnt mit dem Bereich der 
zu kopierenden Zeilen. Die 
Zeilennummern werden wie 
bei DELETE, LIST oder EDIT 
behandelt. 

Danach erfolgt nach Anwei- 
sung die Eingabe der Zeilen- 
nummer, hinter der die Zeilen 
eingeschoben werden sollen 
(fast wie bei INSERT). 

Man kann den Block nämlich 
nicht nur anhängen, sondern 
an jede Stelle innerhalb des 
Assemblerlistings einfügen, 
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sogar innerhalb des Blocks 
selbst. Lediglich wenn man 
den Block direkt an den An- 
fang kopieren möchte muß 
man sich eines kleinen Tricks 
behelfen. Man fügt dann näm- 
lich einfach eine neue Zeile 
ein, kopiert den Block (Vor- 
sicht! die zu kopierenden Zei- 
lennummern haben sich jetzt 
um 1 verschoben!) hinter die 
Zeile 1 und löscht dieselbe 
mit D1. Der zu kopierende 
Block steht jetzt am Anfang. 


APPEND SAVE VERIFY 

Drei Befehle dienen dem La- 
den, Retten und Verifizieren 
von Assembler-Files auf 
Diskette oder Kassette. 

Der Befehl LOAD, den man in 
diesem Zusammenhang er- 
wartet gibt es nicht. Ihn er- 
setzt der Befehl AP(PEND), 
der einen Parameter haben 
kann; die Zeilennummer, hin- 
ter der das File vom Datenträ- 
ger in das im RAM befindliche 
Programm geladen werden 
soll. 

Ist der Speicher leer, so wird 
sich nach APPEND nur das 
Programm, das zugeladen 
wurde, im Speicher befinden. 
APPEND ohne Parameter 
hängt das Programm an das 
im Speicher befindliche an! 
Um das Assembler-Listing 
auf Kassette oder Diskette 
aufzunehmen, wird der Befehl 
S(AVE) benutzt. Ohne Para- 
meter speichert man das ge- 
samte, im Speicher befind- 
liche Programm; und mit ent- 
sprechenden Parametern 
(wie oben unter DELETE be- 
schrieben) können Teile des 
Programms übertragen wer- 
den. 

Um sich zu vergewissern, daß 
alles richtig gespeichert 
wurde, kann mit V(ERIFY) die 
Korrektheit der Aufnahme 
überprüft werden. Dabei ist zu 
beachten, daß wenn Para- 
meter übergeben wurden, 
diese identisch sind mit de- 
nen, die beim Kommando 
SAVE verwendet wurden. 


60T0 280 


Hat man aus irgend einem 
Grunde Stop oder Break ge- 
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drückt, so kann mit GOTO 
280 der Programmablauf 
fortgesetzt werden, ohne daß 
das Assembler-Listing ge- 
löscht wird (was janach RUN 
der Fall wäre). 


QUIT 

QU(IT) sorgt als Befehlsein- 
gabe dafür, daß Assembler 
und Disassembler ausgeführt 
werden. 

Achtung! Zuerst muß man das 
Assembler-Programm im Spei- 
cher auf einen Datenträger 
(Kassette oder Diskette) auf- 
genommen werden! Erst dann 
kann das Programm assem- 
bliert werden. 

Ist der Assembler nachgela- 
den, dann werden wie vom 
Bildschirm her befohlen, die 
Kassette zurückgespult und 
die weiteren Befehle befolgt. 
Dies entfällt bei Disketten- 
betrieb, wo lediglich darauf zu 
achten ist, daß sich Assem- 
bler und Assembler-Programm 
auf der selben Diskette 
befinden. 


SYNTAX und Features 

Gibt man direkt hinter einer 
Zeilennummer einen Editor- 
befehl ein, so wird dieser aus- 
geführt - und nicht in die 
Zeile übernommen! 

Alles andere, was direkt hin- 
ter einer Zeilennummer steht 
und nach einem Blank mit 
weiteren Eingaben versehen 
ist, wird in die entsprechende 
Zeile geschrieben. 

Labels werden direkt hinter 
die Zeilennummer geschrie- 
ben und dürfen keine Blanks 
enthalten. Ein Blank, das ei- 
nem Label folgt, bedeutet dem 
Editor, daß nun ein Mnemonic- 
Befehl folgt. (Mnemonics, so- 
viel sei für Anfanger gesagt, 
nennt man die Codewörter 
wie z.B. LDA (Load Akku), STA 
(Store Akku), TAX (Transfer 
Akku to X-Register), usw. 
Folgt direkt hinter der Zeilen- 
nummer ein Blank, dann ge- 
hört hinter dieses Blank ein 
Mnemonic. 

Dahinter gehört, wenn es sich 
um einen Mehrbytebefehl 
handelt, wieder ein Blank und 
dann ein Operand. 


Ein Semikolon wird Kom- 
mentaren, die zur besseren 
Verständlichkeit des Pro- 
gramms einer Programmzeile 
beigefügt werden können, 
vorangestellt. 

Der Assembler versteht Hex- 
und Dezimalzahlen. Hexzah- 
len haben ein Dollarzeichen 
vorangestellt. Direkte und re- 
lative Sprünge zu Labels und 
zu labelabhängigen Punkten 
sind möglich. z.B.: 

JSR LABEL 

oder 

JSR LABEL+86 

BNE MARKESB8-9 

Auch Sprünge relativ zum 
Programm-Counter sind ge- 
stattet. Das Sternchen “*” ist 
in diesem Fall das Symbol 
für den Programm-Counter. 
Beispiel: BNE *-3. Die bisher 
zusätzlich vom Assembler 
verstandenen Mnemonics 
sind: 

ORG Programmbeginn 

EQU (Equate) 

DFB (Define Byte) 

ORG hat kein Label und muß 


eine Hex- oder Dezimalzahl 
im Operandenfeld haben. 

Vor EQU muß sich ein Label 
befinden und dahinter eine 
entsprechende Hex-, Dual- 
oder Dezimalzahl. 

Vor DFB kann ein Label 
stehen. Dem Mnemonic fol- 
gen ein oder mehrere Hex-, 
Dual- oder Dezimalzahlen. 
Mehrere Zahlen werden durch 
Kommata getrennt. 

Eine weitere nachträglich ein- 
geführte Bequemlichkeit ist, 
daß mit den Größer-als- und 
Kleiner-als-Zeichen Labels in 
High und Low-Byte zerlegt 
werden können. 

z.B. 


1ADRESSE EQU 34356 
2 LDA #< ADRESSE 
3 STA HIGHBYTE 
4 LDA #> ADRESSE 
5 STA LOWBYTE 


Wie bereits angesprochen, 
werden weitere “Bequem- 
lichkeiten”, nützliche Befehle 
und Hilfsprogramme zum 


NEU FÜR DEN 
COMMODORE 


RLEARN 


Die revolutionäre, 
neue Lernmethode. 
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Programmieren in Assembler 
(und somit in Maschi- 
nencode) folgen. 


Editor 


88 POKE45,32:PCKE46 ,31 
98 CLR 

188 DIMAS< 19909) 

118 L$=" ":FORI=S1ITOS:L$S=SLEFTSCLSHL$S,21):NEXT:L$=L$+"D 
128 PRINTTRAB (6) "BHOMECOMPUTER 
PRINT" SBHHOMECOMPUTER EDITOR 
PRINT'"BEAFBPEND LA] 
PRINT"BESEAVE [AIJIL-ILEI 
PRINT"BISVBERIFY [AIL-ILE)I 
PRINT" BISAEDD 

PRINT"BBISIBNSERT [AI 
FRINT'ERBEERDIT [LAIL-ICE) 
PRINT'"BEDEELETE [AIL-ICEI 
FRINTBISZ MIST [AIL-ILEI 
FRINT'" ID EOPY 

PFRINTBDEUIT -> ASS + DISASS 
IFB=1ORE=S5ORB=3THENAS$S="L":GOTO388 
INFPUT"BBEFEHL "AS 
PRINT:RESTORE :FORB=1TO1®:READBS: IFLEFT$(CAS$ ,LENCBS))< >B$STHENNEKXT 
318 IFB{ »>2ANDB<STHENGOSUBSBHD 

339 ONBGOTO4098,699,500,700,800,1009,12090,9098,1109,549,208 
488 REM APPEND 

418 GOSUBEDAADO 

428 INPUT#H1,A$ 

438 IFN2<NTHENFORC=NTONE+ISTEP-L:ASICHL )SAECCI:TNEXT 

443 N2=NE+12N=N+1?ASCN2)=A$: IF CBAANDST)=BTHENA2D 

458 CLOSE1:GOTO288 

580 REM SAVE 

sa2 INPUT"FILENAME"SF$S:PRINT"CASSETTE / DISK Ze De": WAITIIS,1:GETGS: IFGS="C"TH 
ENS1® 

Sa5 IFG&<)"D"THENSDO2 

587 OPENI1,8,2,F&+",S,W":G60T0528 

518 OFENI,L,1,F$ 

S28 FOÖRC=NITONZ:PRINT#H1,CHRSC34 )ASCCIY:NEXT:CLOSEI 

549 PRINT"IIRSSEMBLER EINLADEN ? 

sSsa WAIT1IS,3:GETGS$ 

568 IF5£="J"THENCLR:LOAD "ASSEMBLER" ‚8 

S7®8 FRINT"ODDISASSEMBLER ? " 

5893 WAIT138,3:GETG$ 

538 IFG$="J"THENCLR:LOAD "DISASSEMBLER" ‚8 

535 GOTO208 

600 REM ADD 

E13 C=N:PRINT"J 

528 GOSUB4ARD: IFEFTHEN3OBHKPRINTLE:GOSUBA4SDBO 

E48 A$(CC)=AF:HN=C:GOTOS2DO 

788 REM LIST 

7108 FRINT"Q":FÜORC=MITOND2:ASSASCCI:GOSUBA5HD 

28 GETGS: IFG#="3"THENWAITI33,1:GET5S$ 

7380 IFG£="Q"THEN2SQ 

7498 NEXT:GOTN288 

S0B REM DELETE 
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S1B Ci=M2-NI+1:IFDSIBOTHENPRINT"A ARE YOU SURE ? M":WAIT198,7:GETGE: IFG$="N"THENZ23 
8 

Ssza N=N-D 

2230 FORC=NITON?AFLC)I=SAFCC+HD):NEKXTIGOTO238 

998 REM VERIFY 

318 STIZUBEOADd 

Ss2ED FORTZ=NITONZE:INPUTHI,AS 


DO IFAEIIAEICHOREAIANDSTANDC <NETHENPR INT"?VERIFY ERROR IN"C:CLOSE1:GOTO288 
248 NEST:CLOSEI1:PRINT"OK":GOTO288 

Ia80 REM EDIT 

1018 FORC=NITOMS:PR INT" MEEITD" :5=PEEK (214) 1 A$=A$CC):G0SUBY509 

19315 PRINT"D">: IFPEEK (214) STHENI1015 

19298 AF="":CYGS59S5:8 
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1838 
1849 
1858 
1109 
1119 
1128 
1138 
1149 
1150 
1158 
1178 
1180 
11$8 
1208 
1218 
1228 
1230 
1248 
1259 
4800 
48095 
49210 
"oO 
40815 
4928 
4934 
4948 
493509 
4368 
4970 
4988 
4959 
41088 
4118 
41298 
45009 
4518 
45208 
5888 
5218 
5829 
=238 
59843 
so7T9 
SpE® 
20970 
sa9o 
sehe 
5108 
Sa 
HENS 
sooeE 
6905 
6318 
€928 
E05 
€E188 


FCER1=515T0688: IFPEEK<IITHENAESAS+CHRSCPEEKCIII:NEXT 
SOSUB4 188: IFBFTHENS39®8 

ATCCI=AS:NEXTC:GOTOZ239 

REM COPY 

IHPUT"COPY-BEREICH"7A$ 

GOSUBSB828: INPUT"WOHIN CZEILENNUMMER) "FC 

IFC SNTHENC=N 

D=NE-Hi+i 
IFC<NTHENFORI=NTOC+ISTEP-1:AECI+DISASCII:NEKT 
N=N+D: IFNI >CTHENNI=NI+D 
FORISCHITOC+HOTASCIISAFSCNI)S IFNI=SCTHENNI=NI +D 
HI=NI+I:NEHT 

GOTO288 

REM INSERT 

C=Ni 

GOSUB4BOAB: IFBFTHENSDO® 

PRINTLE:GOSUB4592 

FORI=NTOCSTEF -1:ASCIHIISA&CI):NEXT:N=N+LIASCCI=AS 
G0T012298 

AS="":1=1:C=C+l:C$=RIGHT$C" "+STRSCC),3) 
PRINT"MSCITI 

S=-FEEF (2143 :PRINTCSLEFTSCAS,I-1I"A"LEFTSCMIDSCAS, I,1)+" ",1Y"M"MIDSCAS,1I+1) 


IFPEEK (214) >STHENPRINT"D"5:G0OT04815 
WAIT193S,15:GETGS$: J=ASC (6$) 

IFJ=23THENMBIO 

IFJ=15S7THENI=I+C1>1):G0OT04818 
IFJ=14STHENA$S=SLEFTECAS,I-1)+" "+MIDSCAF,II:GOTOABIO 
IFJ=2BOTHENAESLEFTECAS, I-1tCI> 1) )+MIDSCAF, 1): I=1I+CI>1):GOTO4819 
IFIT=13THENd 188 

AF=SLEFTECAF, I-1) +GE+MIDECAF, I+1) 

I=It1+CI>LEN{AS)):GOTOIB818 

FORI=1TOLEN(AS$SI: IFMIDSCAE&,1,19°>" "THENNEXT:BF=-1:RETURN 
IFMIDSCA$,1I+1,1)=" "THENAF=SLEFT$(CAS,TI+MIDSCAS, 1+2):G6G0T04118 
BF=B:RETURN 

PRINTRIGHT$SC" "+STRESCC),3)5 

FORI=1T08: 1$=MID$(A$,1,1):PRINTI$S?:IFI1$<>" "THENNEXT:I=I-1 
PRINTTAB<1B8)MIDS<(AS, I+1)" ":RETURN 

D=3:FORI1=1T03:J=ASC MIDE(A$S,1,1)+"3"): IFJ=45THEND=1 
IFJS430RJY57THENNEXT 

N1=YAL CMIDSCA$, 12) 

NE=VAL CMIESCAS, I+LEN{STRECNLIIID 
IFNI=BOTHENNI =1ANDB { >7 :NZ=N 

IFDTHENNZ2=NI:NI=1 

IFRIGHTEIAF,1)="-"THENNZ2=N 

IFNZ<NITHENNE=SNI 

IFNE >NTHENNZ2 =N 

IFNI>NTHENNI=N 

RETURN 

INPUT"FILENAME"SF$S:PRINT"CASSETTE / DISK Ze pe" :WAITISS,1:GETGS: IFG$="D"T 
1989 

IFG&< >"C"THENSQOO 

PRINT"CASSETTE ZURUECKSPULEN 

PRINT"BIS ZUM ANFANG DES":PRINT"ASSEMBLER-FILES! 
PRINT"DBANN 3 F EB DRUECKEN! 
WAITISE,1:GETGS:PRINT"OK":OPENI,1,8,F$:RETURN 
OPENI1,8,2,F£+",S5,R":RETURN 


18892 DATAAP,A,S,L,D,E,I1,V,C,0Q 
READY. 


Assembler 


S8 PRINT" IEHOMECOMPUTER -ASSEMBLERAM 


108 
118 
128 
138 
149 
2a8 
218 
220 
588 
510 


REARDOF:READAE:OS=-OS+HAF:READAF:OS=0OFHAS:DIMASCSODO) ,A(5909) 
FOR1=8TC7:READAISCII:NEHT 

DIMOZ<S8):FORI1=9T0O55:READOYCIYI:NEXT 

FORI=ATO? :READSMCII:NEXT 

DIMAD“<2I):FOR1=BTO21:READADACII NEXT 

FRINT"CASSETTE 7 DISK CE DE" :WUAITISS,1:GETGS: IFGS< "C"ORG$S>"D"THENZ2OO 
DI=5£="D": IFNOTDITHENGOSUBS2808 
INPUT"FILENAME "ZF$: IFDITHENF&=F$+",S,R" 

OPEN! ,1+<7ANDDI> ,ZANDDI,F$:Z=8 

2=2+1:1INFUT#H1.L$S:FORI=1T09: IFMIDSCLE&,1,1)<>” "THENNEXT 
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528 IFI-1THENAE(LCISLEFTELLS,I-1IACLOISPC:LCSLCH 
E5 PRINTRICHTS(® "+STRSIPC),SILEFTSCLS, I)TABCIOIMIDS(LS$, I+1) 
538 GOSUE49008 
549 PC=FPC+L 
388 IF<EIANDST)=BTHENS1O 
318 CLOSEI 
18282 IFNOTDITHENGOEUBSOBOD 
1818 OPENI1,1+<7ANDDI) ,2ANDDI ,F$:F=-1:2=8 
1029 2=2+1: INPUT#H1,LF:FORI=1T09: IFMIDSCL$S,I,1)<>" "THENNEXT 
1838 GOSUB48082: IFOI>SSTHENI 158 
1890 0=0%X01):IFOI>21ITHEN197O 
1858 IFAI=1ANDOANDIORL=3THENO=0 +8 
1869 0=0+S5%{Al) 
1o7a IFAI<SANDL>1THENGOSUBSO9B: IFOI>48ANDOI<SSTHENS=S-PC-2:8=8+256ANDS<B) 
18398 S4=-5/256:5=$S-256%4S%X:PRINTPCTAB(7)OTAB(12I)STAB«17)SY 
1838 POKEPC ,O:POKEPC+1;S: IFL=3THENPOKEPC+2,S% 
1188 PC=PC+L: 1IF(64ANDST)I=BTHENLD2QO 
1118 CLOSE1 
1128 GOTO29898 
1152 1F01-57THEN1180 
11EO K=9:FORP=PCTOP+L-1:AS="":FORK=K+ITOLEN<LS):J$=MIDSCL$,K,1) 
1165 IFJS<>"," THENAS=AS+JS:NEXT 
1178 GOSUBS898 :POKEP ,S:NEXTP:GOTO119® 
4888 AS=MIDSE(CL$,1+1,3):L=8 
4318 FORJ=1TO17SSTEP3: IFAS<>MID$S(COS,J,3S) THENNEXT:PRINT"OPCODE ERROR IN"Z:GOTO208 
89 
40828 Ol=(J-1)/3:L$=MID$(L$,1+5) 
4838 I1FOI1=56ANDNOTFTHENA$S=L$:GOSUBSBBB:A(LC-1)=S 
4032 IFO1=57THENL=1:FORJ=S1TOLENCLSISL=SL-(MIDSCLS,J,1)=","): NEXT 
4935 IFOI1=SSTHENA$S=LE:GOSUBSB98:PC=S 
49248 IFO1YSSTHENRETURN 
49845 IFOISZITHENA$=L$:GOTO4 135 
4959 IFLEN({LE)I=BORLS= "A" THENBS="A":GOTO4149 
4058 At="":BS="":FORI=1TOLEN(LS)I: JS=MIDS(L$, 1,1) 
4070 IFJS=S"H"CRJE="C"THENBS=BS+J$:GOTO413O 
48939 IFJS=")"ORJE=" "THEN4138 
4ie8 IFJS=","THENI=1+1:B$=-B$+MIDSCL$,1,1):G0T04130 
118 IFJS="3"THENA 135 
a129 AssAs+Js 
4129 NEXT 
4125 Al=B:L=-(CO1>21)-(01>46)-(01>54): IFLTHENRETURN 
4148 FORAI=BOTOT?: IFBST YAISCAIL)THENNEXT:GOTO19939 
4159 L=1-cAI>B)-<CAI>3ITIFCOI=120ROT=15S)ANDAI=4THENAI=? 
4152 IF<2tAIANDADACOLY>=BTHEN19999 
4155 IFAI<STHENRETURN 
4169 GOSUES5988: IFE=1OROI=7THENL=3:RETURN 
2178 _=2-(53255) 
4:75 I1FAI=?THENIFL=3AND (O1=1980RO1=12) THEN13338 
41328 RETURN 
Ss222 FORI=1ITILENCAFSITJ=ASCCMIDSCAS,1T,1)) 
5818 IFJ=43THENSAS=MIDS(AS, IH): AS=LEFTECAS, I-1):G0SUBS5040:SA=S: AF=SAS:GOSUBSO4D 
:5=5+5A:RETURN 
So28 IFJ=45STHENSAF=MIDSCAS, I+1)A$=LEFTSCAS, I -1):G0SUBS949 :5A=S:AF=SAS:GOSUBSA4B 
:S=S5A-S:RETURN 
Ss22398 NEXT 
52408 IFASCCAF)=SEZTHENAS=MIDSCAF,2):GOSUBEQHB:SA=-5/256:5=S-256 KSY:RETURN 
5058 IFASC (A$)=69THENA$S=MIDE(A$,2):G0OSUBS999:S=INT(S/256 ) :RETURN 
EBBOO E=B:5=VÄALCAF)ILIFSYBORASC (A$) =48THENRETURN 
sole J=ASC(AF): IFJ-36THENEASDO 
evBza FORJIS2ZTCLENASIEIJS=EMIDSCAS,J, 1): S=16xS+VALCJSI+CASCCISI -5SANDJIEI"@")SNEXTIR 
ETURN 
eazo IFJI=37THENFORJ=SZTOLEN(AS)LS=S+S+VÄL (MIDSCAS,J,LI):NEXT:RETURN 
69835 IFJ=42THENS=PC+L:RETURN 
e2ae FORJI=OTGLC- I: TFASSASCIYTHENS=ACJ) RETURN 
ge52 NEHT!IFOI=7THENE=1:RETURN 
SIED AFLLCISAS:PRINT"DER LABEL "A$ 
8672 PRINT"WURDE NICHT GEFUNDEN. 
eaza INPUT"ZUGENIESENER WERT"ZA$:GOSUBSB98 
6939 A(LCI=5:LC=LC+1:RETURN 
1a028 DATAORAASLBITANDROLEORLSRJIMPADCRORSTYSTASTKLDYLDALDKXCPYCMPDECCPXRSBC INC 
18818 DATABRKPHPCLCPLPSECRTIPHACLIRTSPLASE IDEYTKATYATXSTAYTASCLVYTS# INYDEXCLD INXN 
op 
1809208 DATASEDBPLBEMIBVCBVSBCCBCSBHEBEGJSREGUDFEORG 
188309 DATAA,R,CHR,CT.Y CH", 
i2eu48 DATNS,6,36,37,38,63,73,63,101,102,132,153,134,164,165,166,196,197,198,228, 
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12858 AATAZEB,0.8,249,498,56,64,732, 


[ E02 = Du 3 —'n1 De 
80 

180€E2 
12278 
2830 
94,66 
18238 
19529 
zde9m 
20085 
23219 
© 

20828 
E8838 
zsona0H 
50085 
soo1le 
gsccad 
Sı090 
ei1910 
geıo28 
READY. 


Er- TAEOE,EIS, 
DATASF,-3,- 


FREENET 
ATtme22,193 


bb 0 
> 


DHTAZEE2,E84 
FRINT"ADR ERROR IN"Z 
PRINT"BEINLADEN VOM: 


END 
CLOSE1 


PRINT:RETURN 
INFUTAgLAS=" Kr As: 
OPENI.,8,2,"LC,3,R 


CLOSEI 


2,153, 


88,96, 


‚48,88,112,144,176,203,248,32 


36,2832,193,132,222,194, 


PRINT"BCASSETTE ZURUECKEPULEH":FRINT"GANN 4 PM DRUECKEN!" 
CETWAE: IFWASTY"P"THENS9389S5 


SOTUEESBOB80 :PRINTS:GOTOSAQHEEY 


1984,129,136,138,152,154,168,178,134,1656,2 


PPRINT"EDITOR ?":POKE138,8:WAIT1S8,1:GETG$: IFG$="J "THENCLR :LOAD"EDITOR" ‚8 
PRINT"EDISASSEMBLER ?":WAIT1SS,1:GETGS: IFG$="J" THENCLR:LOAD "DISASSEMBLER", 


IMPUTHI,ACLCYIEINFUTHI ,ASCLCI:LC=SLC+L: IFCSAANDSTI=BTHENG1BI1O 


Leserbrieie 


Wenn ich bei meinem Commodore 64 
Zeichensätze programmieren will, packt 
mich immer wieder der Frust angesichts 
der Tatsache, daß auf diese Weise unglaub- 
lich viel Speicherplatz verbraucht wird. 
Warum reduziert ein Zeichensatz mit 2K 
Umfang den verfügbaren RAM von 38K 
auf ”magere” 12K? Ich habe zwar den 
Verdacht, daß das Handbuch hier einige 
Auskünfte anbietet: verstehen tue ich die 
aber nicht. Können Sie mir helfen? 


M. Kettwig 


Redaktion: 

Nun, die Ursache für Ihr Problem liegt 
wohl darin, daß Sie Ihren Zeichensatz in 
den ersten 16K-Bereich Ihres C-64 stel- 
len. Was Sie in Angriff nehmen sollten, 
nennen die Fachleute bankswitching. 
Der Begriff besagt, daß es durchaus mög- 
lich ist, einzelne Speicherbereiche so zu 
schalten, daß bestimmte Teile ausge- 
klammert, andere wieder gezielt 
genutzt werden. 

Sie schrieben Ihren Zeichensatz in die 
"Bank” 0 ($0000-$3FFF), wodurch die 
Adressen des Commodore-Basic ver- 
schoben werden. Wenn Sie "Bank” 3 be- 
nutzen, werden Sie wesentlich mehr 
Platz zur Verfügung haben. 

Benutzen Sie doch einmal folgendes 
Programm: 
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‘ in der Redaktion. 


SPONTAN; WIE UNSERE LESER ... 


haben Sie in Ihrer neuen ‘““Gompute mit...” nicht nur sofort nach 
Erscheinen der Erstausgabe eine Menge Lösungen für das Such- 
rätsel eingesandt, nein, sie sorgten auch für regen Posteingang 


So können wir die allerersten Leserbriefe heute veröffentlichen 
und hoffen natürlich, daß Sie, liebe Leser, es dabei nicht bewen- 


den lassen. 


10 POKE 56576,4 

20 POKE 53272,32 

30 POKE 648,200 

40 FOR I=0T0 2047 

50 POKE 56333,127 

60 POKE 1,51 

70 J= PEEK (53248 + |) 

80 POKE 1,55 

90 POKE 56333,129 
100 POKE 49152 + I,J 
110 NEXTI 
120 END 
Das Programm ist zugegebener maßen 
etwas langsam, weil in BASIC ge- 
schrieben, für Ihre Belange allerdings 
goldrichtig. 

Ihr Zeichensatz liegt jetzt im Bereich zwi- 
schen 49152 und 51199. Den bestehen- 
den Satz können Sie nun ändern, weil er 
durch die oben abgedruckte Routine in 
den RAM kopiert wurde. 


Ich besitze einen VG-20 und eine 16K- 
Erweiterung. Dazu habe ich einen "Dr. 
Watson’’-Assembler geschenkt bekom- 
men. 

Diese Software verfügt über einen nütz- 
lichen Befehl (CHR GET), mit dem sich Zu- 
satzkommandos erzeugen lassen. Ich 
wüßte gern, wie ich das machen kann, da 
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das Begleithandbuch recht unübersicht- 
lich ist. 

B. Melthaus 
Redaktion: 
Die CHR GET-Routine, die Sie an- 
sprechen, liegt im RAM. Daher ist es 
durchaus möglich, Zusatzbefehle zu 
implementieren. 
Wichtig ist allerdings, daß Sie mit SEI die 
Interrupts außer Kraft setzen, nach der 
Ergänzung durch CLI allerdings wieder 
aufrufen. 


Aus der beiliegenden Fotokopie ersehen 
Sie einen Mini-Industrieroboter. 

Da Sie bestimmt laufend Informationen 
über neue Peripheriegeräte erhalten, 
sollten Sie mit sicher Auskunft geben 
können, wo ich mir Unterlagen über 
solche Roboter beschaffen könnte. 


Redaktion: 

Da die Redaktion das vorliegende Modell 
nicht exakt identifizieren kann, gibt sie 
die Frage an unsere Leser weiter. Wir 
merken nur folgendes an: 

Der Markt für Kleinstroboter (z.B. Mitsu- 
bishi MF101) ist inzwischen beachtlich 
gewachsen. Bezugsquellen nennt viel- 
fach der Fachhandel. 
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BIETE AN SOFTWARE 


VC-20 Software! Preisgünstig! 
Liste gegen 80 Pf. Rückporto von 
S & L-Soft, Postlagernd, 

5014 Kerpenhorrem 


% % % % Hallo VC-64 User X A A Wr 
%* Hier gibt's die aktuellste * 
% Software. Auswahl aus über 2500 #* 
% Progr. Viele Neuzugänge aus USA #* 
#* und GB. Info gegen 1,40 in Brfm. %* 
%* Über 50 seitige Programmaus- #* 
% wahl, Udo Göbel, Frohnhausen 471, # 
% 4300 Essen 1, @0201/740413 %* 


6-64 7 neue Grafik- + Sound Befehle 

(Print AT, Scroll links + rechts, .. 

‚[Aufruf mit Sys) + Anleitung + alle 

wichtigen POKEs + Tricks auf 

Qualitätscass. = 20 DM (Schein/Scheck) 
Lieferung in 48 Stunden! 

€. Wurzer, Grüntenweg 14, 85 Nürnberg 


Commodore 64 
WordPro + 3 (Textprogramm) 
mit dtsch. Handbuch DM 298,- 
Computerware GmbH, Postfach 16724 
Wilh.-Leuschner-Straße 34 
6000 Frankfurt 1, @069/236713 


6-64 120 Top-Programme für 45,- DM 
zu verkaufen. 
@06479/6%7 nach 17 Uhr 


22222222 22 272027 
64er-Progr. zu Superpreisen!!! 
Info gratis! 
F. Zillich, 
Zoppoterstr. 27a, 4000 Düsseldorf 13 
22 222222 22220207 


An Compute mit 
Fuldaer Straße 6 
Postfach 629 

3440 Eschwege 


Unter der Rubrik "Kleinanzeigen”- 
Gele- 


veröffentlichen wir 


Commodore 64 - Günstige Gele- 
genheit: Wegen Systemwechsel 250 
Topprogramme auf Disk oder Cassette 
für nur DM 200,- Schein/Scheck 
oder NN. auch möglich 70 Prg. für 
nur DM 50,-. Bestellungen an: 

P. Weber, Alter Teichweg 137 F, 
2000 Hamburg 70 


VC-20 Software billig, billig 
Action, Organisation, Spiele 
Ausführl. Liste gegen 80 Pf. Porto 
anfordern bei: TH. Schläger, 
Elsastraße 28, 2000 Hamburg 76 


BIETE AN HARDWARE 


"Verkaufe VG-20 mit Modulbox (6 Stckpl.) 
+ 64kb Erw. (Schaltbar) + Datasette, 
sowie Joystick & Paddles. Außerdem Mas- 
sen an Software & etliche Extraliteratur 
(z.B. Speicherbelegung der Zero- und diver- 
ser anderer Pages). Das alles für DM 805 
bei Andreas Pohlke, @030/433 53 24" 


VC-20 + Modul +Div. Spiele+ Datasette 
+ Joystick + Basickurs (3 Hefte + Kas- 
sette) VHB DM 550,- @07263/5929 


VC-20 + 3K + Softw. (fast neu) für 270 DM 
Marcus Plank, ®0841/35237 


oo Anestiikerfter 1.064 @ © 


User-Port Steckmodul. Mikrofon, 
Lautsprecher, Stromversorgung, 
alles dabei! Inkl. Software! 
Umschaltbar Call-Answer-Test! 
Steckmodul DM 138,- Bausatz DM 88,- 
Telefonwählautomat DM 39,- 
Dipl.-Ing. Drust, Landwehrstraße 5 
D-6100 Darmstadt 


Name und Adresse 


Unterschrift 


genheltsanzeigen für Verkaufsan- 
gebote, Kauf- und Tauschgesuche, 
Kontaktaufnahme bzw. Ertahrungs- 


austausch usw. 


Preise für Kleinanzeigen”: 


Private Kleinanzeige je Druckzeile 
5,— DM inkl. MwSt. Chiffregebühr je 


Anzeige 10,- DM. 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 10,- DMinkl. MwSt. 
(dürfen nicht unter Chiffre er- 
scheinen). 
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suche [) Software 
biete an [7] Software 


VC-20 +8K+16K+24K+32K+36 Progr. 
zu verk. VB 390,- DM, K. Scherkenbach, 
02267/4870 


Verkaufe 6-64 + Datas. + Gar. + Prog. 
für DM 740,- 
Bei Int. An: Monika Wohlfell, 
Danziger Weg 5, 5434 Dernbach 


® Spectrum ® Spectrum ® Spectrum ® 
Erw. a. 48K 89,- DM, 80K 189,- DM prog. 
Joyst. Intf. 110,- DM, Joyst.Interf. 53,- 
DM dK'Keybord 188,- DM Fuller FDS Key- 
bord 238,- DM Light Pen 84,- DM Floppy 
System lieferbar. Info anfordern, 
Meyer, Rahserstraße 58, 4060 Viersen, 
®02162/22964 Händleranf. erwünscht 


$uper Joystick Quickshot Il 

für VC-20/C-64 und Atari VCS 
Reset-Taster für VC-20/C-64 DM 10,- 
5,25 Zoll Disketten 10 St. DM 56,- 
Mignon NC-Akkus 10 St. DM 29,- 


DM 39,50 


Leicht, 8752 Mainaschaff, ®06021/74704 


Ich zahle sofort nach Rechnungserhalt. 


Ich wünsche folgenden Text zu veröffentlichen: 


suche [) Hardware 
biete an [[) Hardware 
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Verkaufe: V6-20+Datasette+16K+8K+ 
3 Bücher+ 2 Module + Spiele für 700 DM 
v. Bucheinzelverkauf &069/372872 


Le 2 2 2 222 22 2 2 2 27 
Soft- und Hardware für VC-20 + 64 
Akustik-Koppler, Schnittstelle, 
Doppellauf-Floppy Speichererw. 
40/80 Zeichenkarte und Bustreib. 
für 1541, macht Ihre Floppy 8 x 
schneller beim Einlesen. Katalog 
anfordern bei 
Norbert Flesch, Lippspringerstr. 14 
4650 Gelsenkirchen 
=0209/395447 
La 222 22 2 2 2222 2, 


Verk. 6-64 + Rec. + Zubehör mit 11 Mo. 
Garantie für 700,- DM @09562/8843 


De 


Zutreffendes ankreuzen 
D Tausch OD Versch. 
DO) Kontakte DI Chiffre 
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N. \ In der 
u Cr richtigen (!) ® 
ur Pu Reihenfolge > 
L wo ergeben die folgenden Silben a/ 
eine Devise des erfolgreichen = 


Commodore-Users ... 


AL - COM - DET- ERST- FIN- GE- IN- KLAS - 
LEM - MAN - MIT - PU - SI - SOFT - TE - VOR - WARE 


Dooo 00 00 Oo 0 
ZB oo 0 ooo oO 


Wie bekannt, gibt’s Für die Sieger tolle S 


ielproara r 
aus unserem Kassetten-Service. jtmachen def ei Bändern 
der nr des Roeske-Verlages sowie usnahme 
wie U 


a deren Angehöri 
ich ausgeschlossen. Lösungen an: ROESKE-V gehörigen, Rechtswe 


| 
Postfach 620, 'D-3440 Eschwege. ERLAG, Redaktion CH, 
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Rus STOP ‚Wi co 
SOFT 
+++5 
+STOP++ + Stark reduzierte Pre 
ise + 
r+ST0P#+ + 813 


[eb 
De 
ni S Fi 
Ss 
+ piele — Spi piele — pi 
a piele — Spi piele- Spi 
> Commodore 64 — Spiel piele-$ 8 
(02) cB2004 Hungry Horate Arcade u. Spaß pm 29.00 e u N ie 
cB2010 Krazy K : Ds = 
+ CB? Kong Arcade Spie DM 29.00 eie — a j 
+ Ei star Trek Arcade SP pm 35.00 N D ie eie 
a appY is Arcade Spiel pm 29.00 & en ı = 
82019 ander Arcade Spiel p ie 
as 82022 Pak pm 35.00 e PR 
& 32029 akacuda Arcade pm 32.00 VC-20 
3 820 Stellar Dodger Arcade Spiel pm 29.00 VC1000 
& 30 Jammin rcade U usik pM 29 vc102 
a c82031 Jammin Di An V 3 Gri 
cB203 min Diskelt® pm 35.00 C1024 idder S 
= cB2 E Pipeline Arcade U paß DM 29.00 VC1001 Eridtrap Lahurin ade 
= z 033 jpeline Diskette DM 35.00 VC1005 Rescue ni (0 (0. Erw) 
ns 82003 gridder Superä' de Spi { vct0 Space eltraum Erw) D 
N c8200 e Spiel pm 29.00 07 ace Attac actio M 29 
3 don a as Arcade u. sn DE 35.00 N Moon: Kalder A ee In 35.00 
anic Arcade Spiel : 1020 Noons of rca rw) M 29, 
© (82011 Frogger pm 29.00 vci Line un dupite de (o E D 9.00 
Fr Er Et a Spiel Fee VC1028 Pe Pi Revn ar rw) om an 
peu 20 Galanl N N en ! : Vc1 enny Slot yrint rw) D .00 
5 (82013 en h eltraum- Arcade pm 35.00 es Korn Slot (o m (0 Erw) - 29.00 
n ound Synthesizer pm 65.00 ve 03 Inv Blaster w) 29.00 
s nee u av 1029 Pohl Arc Arcade (o DM 29.00 
+ EEE ;& ® 01041 Here des Erw) Erw) n 25 00 
2 S s& d M 29, 
+ ee Log Run satt Re (+16 DM he 
+ ia ction ( ion (0 E AK 4.00 
Ag ER en M 19.50 
77 24.00 
+ Ma Spectrum ee . : 
© gpa000 pgsst Action! Spaß ‚ Ri 
2 spa001 Jetpat Arcade (+16 auK) DM 79.00 
& spa002 Manit iner Arcad (+ auK) m 29.00 
Q_ spa004 Morris meels ikers Action M 2900 i = nn ® 
«6 spa008 Gehen je in Gefängnis dm 19,50 \ 
2 Deutsc Monopolv Nersion CF N ie: ge m 
5 spa 0 Light 6 tion om 25.00 gest ° une OP ä Sat ars ARE N\) 
S spa01? Arcadia aumacti0 pm 25.00 ro? gen N ne EN PK 
oo spa013 Mad mart Adventure EIN Mm 35.00 AR quack ‚ca0® made NS m EN} 8° 
© spa014 The Che‘ ayer SchaC (+ A8W 35.00 ARE yunand ya Nette N RN 
x pa015 Maze Death Race Arcade (+ 480 25.00 ge50z\ gomk sure — Aue NG m 25.00 
= spa017 Monsters IN Well Arca (+ 16K) 30.00 AN gumani? gell Dort zeton i 
A 5p4016 Molar Maul \\' Kinder geeigne! 25.00 AR gay N 
2) pa018 The glack Hol \Weltraumarcade m 25.00 „5009 
+ sp4036 Spectra mash & Breakout pm 25.00 0,; 
ER 5p4038 Melhoume Drd Grafikpgm | aan 38.00 9 ge 
spa040 Jumping Jack Lustige Action m 25.00 0 6002 
+ pa022 Deep Spat vcad pm 25.00 0R6 004 
= 5p4037 Terror Daktl an-Arcad gm PM 29.00 Org. 17 
ei 5pa003 Uncle Grout Grafikad a8R 29.00 ORgge In, her 
on p4009 The Hobbit Grafikadv ( auK) 65.00 ORgn 08 gerader, „10 
r spa030 Shark Attack AO pm 29.00 06 loepiaee 
E3 spa035 3D Monster Chase \abyrintf m 29.00 Me, ne /Break, 
5p4039 yu.n.s. Games Designer (+ gm DM 48.00 Tr or Be 
+ spa042 quichsilva Games Design (+ 480 m 48.00 By, end ler 5 : 
Ei pa043 Invaders Supe! Arcade pm 25.00 va Prog (chon rg 25.99 
2 Spa045 ram Arcade Action DM 25.00 ac er m om 25,09 
o 5p4049 Ghost Hunt ActoN m 25.00 2X-81 tur 0m 29.09 
a spa054 city Strategie-S + 48% 79.00 2X3009 0m 28.00 
& 5p4057 pi.gyed Arcade W m29.00 2x3001 0m 59.00 
= spa058 pi-Balled Arc? a8K) m’ 29.00 2X3004 Super a .00 
© sp4059 dlympi ge (+ A pm 29.00 2x3006 Ian IB 9 Pome 
S 
= Fa va je “ ZX-81 
& 2X3007 Öhast ke Trap rcage -81 DM 29.00 
ur 2X301 Scrambie tabıri Cade (+ DM IS, 
< 2X 1 Ka A yrinth 16 .08 
== 3019 ee en 19.58 
co Kalle je Action 5x) um 18. 
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